/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / D-G / Graphics 1.0.sit / GRAPHICS 1.0 / GRAF Arcade / graphics

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 67 72 61 70 68 69 | 63 73 00 00 00 00 00 00 |..graphi|cs......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 05 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 8c de 00 | 00 02 8e ab e9 98 55 ab |........|......U.|
|00000060| e9 98 55 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..U.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cf 52 00 00 |........|.....R..|
|00000080| 75 6e 69 74 20 67 72 61 | 70 68 69 63 73 3b 7b 76 |unit gra|phics;{v|
|00000090| 65 72 73 69 6f 6e 20 31 | 2e 30 7d 0d 0d 69 6e 74 |ersion 1|.0}..int|
|000000a0| 65 72 66 61 63 65 0d 09 | 63 6f 6e 73 74 0d 09 09 |erface..|const...|
|000000b0| 64 69 74 68 65 72 43 6f | 70 79 20 3d 20 36 34 3b |ditherCo|py = 64;|
|000000c0| 0d 09 09 44 65 70 20 3d | 20 31 3b 0d 09 09 44 65 |...Dep =| 1;...De|
|000000d0| 70 32 20 3d 20 38 3b 0d | 09 09 43 6f 6c 4c 6f 6f |p2 = 8;.|..ColLoo|
|000000e0| 6b 20 3d 20 31 36 30 31 | 3b 0d 09 09 41 73 79 6e |k = 1601|;...Asyn|
|000000f0| 63 20 3d 20 54 52 55 45 | 3b 0d 09 09 73 51 6c 6d |c = TRUE|;...sQlm|
|00000100| 31 20 3d 20 31 32 37 3b | 0d 09 09 66 6c 75 73 68 |1 = 127;|...flush|
|00000110| 43 6d 64 20 3d 20 34 3b | 0d 09 09 77 68 69 74 65 |Cmd = 4;|...white|
|00000120| 72 65 66 20 3d 20 31 3b | 0d 09 09 62 6c 61 63 6b |ref = 1;|...black|
|00000130| 72 65 66 20 3d 20 32 3b | 0d 09 09 62 61 63 6b 67 |ref = 2;|...backg|
|00000140| 72 6f 75 6e 64 72 65 66 | 20 3d 20 33 3b 0d 09 09 |roundref| = 3;...|
|00000150| 79 65 6c 6c 6f 77 20 3d | 20 37 39 3b 0d 09 09 70 |yellow =| 79;...p|
|00000160| 69 6e 6b 20 3d 20 31 32 | 39 3b 0d 09 09 72 65 64 |ink = 12|9;...red|
|00000170| 20 3d 20 32 35 35 3b 0d | 09 09 6c 74 62 6c 75 65 | = 255;.|..ltblue|
|00000180| 20 3d 20 32 36 33 3b 0d | 09 09 67 72 65 65 6e 20 | = 263;.|..green |
|00000190| 3d 20 33 32 37 3b 0d 09 | 09 62 6c 75 65 20 3d 20 |= 327;..|.blue = |
|000001a0| 33 38 39 3b 0d 09 09 77 | 68 69 74 65 32 20 3d 20 |389;...w|hite2 = |
|000001b0| 34 36 36 3b 0d 09 09 62 | 6c 61 63 6b 32 20 3d 20 |466;...b|lack2 = |
|000001c0| 35 31 37 3b 0d 09 74 79 | 70 65 0d 09 09 47 57 46 |517;..ty|pe...GWF|
|000001d0| 6c 61 67 73 20 3d 20 73 | 65 74 20 6f 66 20 28 50 |lags = s|et of (P|
|000001e0| 78 50 75 72 67 65 2c 20 | 4e 4e 44 65 76 2c 20 55 |xPurge, |NNDev, U|
|000001f0| 54 4d 2c 20 4b 70 4c 6f | 63 2c 20 47 57 46 34 2c |TM, KpLo|c, GWF4,|
|00000200| 20 47 57 46 35 2c 20 50 | 78 50 75 72 67 62 6c 65 | GWF5, P|xPurgble|
|00000210| 2c 20 50 78 4c 6f 63 6b | 65 64 2c 20 47 57 46 38 |, PxLock|ed, GWF8|
|00000220| 2c 20 47 57 46 6c 39 2c | 20 47 57 46 6c 31 30 2c |, GWFl9,| GWFl10,|
|00000230| 20 47 57 46 6c 31 31 2c | 20 47 57 46 6c 31 32 2c | GWFl11,| GWFl12,|
|00000240| 20 47 57 46 6c 31 33 2c | 20 47 57 46 31 34 2c 20 | GWFl13,| GWF14, |
|00000250| 47 57 46 31 35 2c 20 4d | 70 50 78 2c 20 4e 44 65 |GWF15, M|pPx, NDe|
|00000260| 70 2c 20 41 6c 69 67 6e | 50 78 2c 20 4e 77 52 6f |p, Align|Px, NwRo|
|00000270| 42 79 74 65 73 2c 20 52 | 65 61 6c 50 78 2c 20 47 |Bytes, R|ealPx, G|
|00000280| 57 46 32 31 2c 20 47 57 | 46 32 32 2c 20 47 57 46 |WF21, GW|F22, GWF|
|00000290| 6c 32 33 2c 20 47 57 46 | 32 34 2c 20 47 46 32 35 |l23, GWF|24, GF25|
|000002a0| 2c 20 47 57 6f 72 6c 64 | 46 6c 61 67 73 32 36 2c |, GWorld|Flags26,|
|000002b0| 20 47 57 46 32 37 2c 20 | 43 6c 69 70 50 78 2c 20 | GWF27, |ClipPx, |
|000002c0| 53 74 72 50 78 2c 20 44 | 69 74 68 50 78 2c 20 47 |StrPx, D|ithPx, G|
|000002d0| 57 46 45 72 72 29 3b 0d | 0d 0d 09 09 47 57 50 74 |WFErr);.|....GWPt|
|000002e0| 72 20 3d 20 43 47 72 61 | 66 50 74 72 3b 0d 09 74 |r = CGra|fPtr;..t|
|000002f0| 79 70 65 0d 09 09 54 69 | 6d 65 20 3d 20 4c 6f 6e |ype...Ti|me = Lon|
|00000300| 67 49 6e 74 3b 0d 0d 09 | 09 53 6e 64 43 6f 6d 6d |gInt;...|.SndComm|
|00000310| 61 6e 64 20 3d 20 70 61 | 63 6b 65 64 20 72 65 63 |and = pa|cked rec|
|00000320| 6f 72 64 0d 09 09 09 09 | 63 6d 64 3a 20 49 6e 74 |ord.....|cmd: Int|
|00000330| 65 67 65 72 3b 0d 09 09 | 09 09 70 61 72 61 6d 31 |eger;...|..param1|
|00000340| 3a 20 4c 6f 6e 67 49 6e | 74 3b 0d 09 09 09 09 70 |: LongIn|t;.....p|
|00000350| 61 72 61 6d 32 3a 20 4c | 6f 6e 67 49 6e 74 3b 0d |aram2: L|ongInt;.|
|00000360| 09 09 09 65 6e 64 3b 0d | 0d 0d 09 09 53 6e 64 43 |...end;.|....SndC|
|00000370| 68 61 6e 6e 65 6c 20 3d | 20 70 61 63 6b 65 64 20 |hannel =| packed |
|00000380| 72 65 63 6f 72 64 0d 09 | 09 09 09 4e 43 68 61 6e |record..|...NChan|
|00000390| 3a 20 5e 53 6e 64 43 68 | 61 6e 6e 65 6c 3b 0d 09 |: ^SndCh|annel;..|
|000003a0| 09 09 09 4d 6f 64 31 3a | 20 50 74 72 3b 0d 09 09 |...Mod1:| Ptr;...|
|000003b0| 09 09 63 61 6c 6c 42 63 | 6b 3a 20 50 72 6f 63 50 |..callBc|k: ProcP|
|000003c0| 74 72 3b 0d 09 09 09 09 | 55 49 6e 66 6f 3a 20 50 |tr;.....|UInfo: P|
|000003d0| 74 72 3b 0d 09 09 09 09 | 57 61 69 74 3a 20 54 69 |tr;.....|Wait: Ti|
|000003e0| 6d 65 3b 0d 09 09 09 09 | 43 6d 64 49 6e 50 72 6f |me;.....|CmdInPro|
|000003f0| 67 3a 20 53 6e 64 43 6f | 6d 6d 61 6e 64 3b 0d 09 |g: SndCo|mmand;..|
|00000400| 09 09 09 46 6c 61 67 73 | 3a 20 49 6e 74 65 67 65 |...Flags|: Intege|
|00000410| 72 3b 0d 09 09 09 09 51 | 4c 65 6e 67 3a 20 49 6e |r;.....Q|Leng: In|
|00000420| 74 65 67 65 72 3b 0d 09 | 09 09 09 51 48 65 61 64 |teger;..|...QHead|
|00000430| 65 72 3a 20 49 6e 74 65 | 67 65 72 3b 0d 09 09 09 |er: Inte|ger;....|
|00000440| 09 51 54 61 69 6c 3a 20 | 49 6e 74 65 67 65 72 3b |.QTail: |Integer;|
|00000450| 0d 09 09 09 09 51 3a 20 | 61 72 72 61 79 5b 30 2e |.....Q: |array[0.|
|00000460| 2e 73 51 6c 6d 31 5d 20 | 6f 66 20 53 6e 64 43 6f |.sQlm1] |of SndCo|
|00000470| 6d 6d 61 6e 64 3b 0d 09 | 09 09 65 6e 64 3b 0d 09 |mmand;..|..end;..|
|00000480| 09 53 6e 64 43 68 61 6e | 50 74 72 20 3d 20 5e 53 |.SndChan|Ptr = ^S|
|00000490| 6e 64 43 68 61 6e 6e 65 | 6c 3b 0d 0d 0d 09 09 53 |ndChanne|l;.....S|
|000004a0| 6f 75 6e 64 48 65 61 64 | 65 72 20 3d 20 72 65 63 |oundHead|er = rec|
|000004b0| 6f 72 64 0d 09 09 09 09 | 53 50 74 72 3a 20 50 74 |ord.....|SPtr: Pt|
|000004c0| 72 3b 0d 09 09 09 09 4c | 65 6e 67 3a 20 4c 6f 6e |r;.....L|eng: Lon|
|000004d0| 67 49 6e 74 3b 0d 09 09 | 09 09 53 61 6d 70 52 61 |gInt;...|..SampRa|
|000004e0| 74 65 3a 20 46 69 78 65 | 64 3b 0d 09 09 09 09 4c |te: Fixe|d;.....L|
|000004f0| 70 53 74 72 74 2c 20 4c | 70 45 6e 64 3a 20 4c 6f |pStrt, L|pEnd: Lo|
|00000500| 6e 67 49 6e 74 3b 0d 09 | 09 09 09 62 61 73 65 46 |ngInt;..|...baseF|
|00000510| 72 65 71 3a 20 42 79 74 | 65 3b 0d 0d 09 09 09 65 |req: Byt|e;.....e|
|00000520| 6e 64 3b 0d 09 09 53 6f | 75 6e 64 48 65 61 64 65 |nd;...So|undHeade|
|00000530| 72 50 74 72 20 3d 20 5e | 53 6f 75 6e 64 48 65 61 |rPtr = ^|SoundHea|
|00000540| 64 65 72 3b 0d 0d 09 74 | 79 70 65 0d 09 09 47 52 |der;...t|ype...GR|
|00000550| 41 46 70 6f 72 74 20 3d | 20 72 65 63 6f 72 64 0d |AFport =| record.|
|00000560| 09 09 09 09 74 68 65 70 | 6f 72 74 3a 20 47 57 50 |....thep|ort: GWP|
|00000570| 74 72 3b 0d 09 09 09 09 | 74 68 65 72 65 63 74 3a |tr;.....|therect:|
|00000580| 20 72 65 63 74 3b 0d 09 | 09 09 65 6e 64 3b 0d 0d | rect;..|..end;..|
|00000590| 09 09 66 61 63 65 20 3d | 20 72 65 63 6f 72 64 20 |..face =| record |
|000005a0| 20 7b 6e 6f 74 20 61 6c | 6c 20 70 61 72 74 73 20 | {not al|l parts |
|000005b0| 6f 66 20 74 68 69 73 20 | 72 65 63 6f 72 64 20 61 |of this |record a|
|000005c0| 72 65 20 63 6f 64 65 64 | 20 69 6e 74 6f 20 74 68 |re coded| into th|
|000005d0| 65 20 77 68 6f 6c 65 20 | 74 68 69 6e 67 21 21 21 |e whole |thing!!!|
|000005e0| 21 21 21 21 21 21 21 21 | 21 21 21 21 21 21 21 21 |!!!!!!!!|!!!!!!!!|
|000005f0| 21 21 21 21 21 7d 0d 09 | 09 09 09 74 68 65 74 79 |!!!!!}..|...thety|
|00000600| 70 65 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |pe: inte|ger;....|
|00000610| 09 74 68 65 70 69 63 74 | 2c 20 74 68 65 6d 61 73 |.thepict|, themas|
|00000620| 6b 70 69 63 74 3a 20 70 | 69 63 68 61 6e 64 6c 65 |kpict: p|ichandle|
|00000630| 3b 0d 09 09 09 09 74 68 | 65 63 69 63 6f 6e 3a 20 |;.....th|ecicon: |
|00000640| 63 69 63 6f 6e 68 61 6e | 64 6c 65 3b 0d 09 09 09 |ciconhan|dle;....|
|00000650| 09 72 65 73 4e 75 6d 2c | 20 70 69 63 74 72 65 73 |.resNum,| pictres|
|00000660| 6e 75 6d 2c 20 6d 61 73 | 6b 72 65 73 6e 75 6d 2c |num, mas|kresnum,|
|00000670| 20 6f 6c 64 72 65 73 4e | 75 6d 3a 20 69 6e 74 65 | oldresN|um: inte|
|00000680| 67 65 72 3b 0d 09 09 09 | 09 73 6f 75 72 63 65 72 |ger;....|.sourcer|
|00000690| 65 63 74 3a 20 72 65 63 | 74 3b 0d 09 09 09 09 73 |ect: rec|t;.....s|
|000006a0| 69 7a 65 72 65 63 74 3a | 20 72 65 63 74 3b 0d 09 |izerect:| rect;..|
|000006b0| 09 09 09 63 6f 6c 6c 69 | 73 69 6f 6e 73 69 7a 65 |...colli|sionsize|
|000006c0| 3a 20 72 65 63 74 3b 0d | 09 09 09 65 6e 64 3b 0d |: rect;.|...end;.|
|000006d0| 0d 09 09 73 70 72 69 74 | 65 20 3d 20 72 65 63 6f |...sprit|e = reco|
|000006e0| 72 64 0d 09 09 09 09 6b | 69 6e 64 3a 20 49 6e 74 |rd.....k|ind: Int|
|000006f0| 65 67 65 72 3b 20 7b 20 | 55 73 65 64 20 66 6f 72 |eger; { |Used for|
|00000700| 20 69 64 65 6e 74 69 66 | 69 63 61 74 69 6f 6e 2e | identif|ication.|
|00000710| 20 69 66 20 74 68 65 79 | 27 72 65 20 64 69 66 66 | if they|'re diff|
|00000720| 65 72 65 6e 74 20 66 72 | 6f 6d 20 65 61 63 68 20 |erent fr|om each |
|00000730| 6f 74 68 65 72 2c 20 74 | 68 65 79 27 72 65 20 65 |other, t|hey're e|
|00000740| 6e 65 6d 69 65 73 20 7d | 0d 09 09 09 09 70 6f 73 |nemies }|.....pos|
|00000750| 69 74 69 6f 6e 3a 20 50 | 6f 69 6e 74 3b 0d 09 09 |ition: P|oint;...|
|00000760| 09 09 74 68 65 66 61 63 | 65 3a 20 46 61 63 65 3b |..thefac|e: Face;|
|00000770| 09 09 09 7b 20 50 6f 69 | 6e 74 65 72 20 74 6f 20 |...{ Poi|nter to |
|00000780| 74 68 65 20 46 61 63 65 | 20 28 61 70 70 65 61 72 |the Face| (appear|
|00000790| 61 6e 63 65 29 20 74 6f | 20 62 65 20 75 73 65 64 |ance) to| be used|
|000007a0| 2e 20 7d 0d 09 09 09 09 | 74 61 73 6b 3a 20 50 72 |. }.....|task: Pr|
|000007b0| 6f 63 50 74 72 3b 09 09 | 09 7b 20 43 61 6c 6c 62 |ocPtr;..|.{ Callb|
|000007c0| 61 63 6b 2d 72 6f 75 74 | 69 6e 65 2c 20 63 61 6c |ack-rout|ine, cal|
|000007d0| 6c 65 64 20 6f 6e 63 65 | 20 70 65 72 20 66 72 61 |led once| per fra|
|000007e0| 6d 65 2e 20 7d 0d 09 09 | 09 09 68 69 74 54 61 73 |me. }...|..hitTas|
|000007f0| 6b 3a 20 50 72 6f 63 50 | 74 72 3b 09 09 7b 20 43 |k: ProcP|tr;..{ C|
|00000800| 61 6c 6c 62 61 63 6b 20 | 69 6e 20 63 6f 6c 6c 69 |allback |in colli|
|00000810| 73 69 6f 6e 73 2e 20 7d | 0d 09 09 09 09 6e 65 78 |sions. }|.....nex|
|00000820| 74 2c 20 70 72 65 76 2c | 20 74 68 69 73 69 73 3a |t, prev,| thisis:|
|00000830| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 09 6e 65 | integer|;.....ne|
|00000840| 77 70 6c 61 63 65 2c 20 | 6f 6c 64 70 6c 61 63 65 |wplace, |oldplace|
|00000850| 2c 20 63 6f 6c 6c 69 73 | 69 6f 6e 70 6c 61 63 65 |, collis|ionplace|
|00000860| 3a 20 72 65 63 74 3b 0d | 09 09 09 09 73 70 65 65 |: rect;.|....spee|
|00000870| 64 3a 20 50 6f 69 6e 74 | 3b 20 7b 20 43 61 6e 20 |d: Point|; { Can |
|00000880| 62 65 20 75 73 65 64 20 | 66 6f 72 20 73 70 65 65 |be used |for spee|
|00000890| 64 2c 20 62 75 74 20 6e | 6f 74 20 6e 65 63 65 73 |d, but n|ot neces|
|000008a0| 73 61 72 69 6c 79 2e 20 | 7d 0d 09 09 09 09 6c 61 |sarily. |}.....la|
|000008b0| 79 65 72 3a 20 69 6e 74 | 65 67 65 72 3b 20 7b 46 |yer: int|eger; {F|
|000008c0| 6f 72 20 6c 61 79 65 72 | 2d 73 6f 72 74 69 6e 67 |or layer|-sorting|
|000008d0| 2e 20 57 68 65 6e 20 6e | 6f 74 20 75 73 65 64 20 |. When n|ot used |
|000008e0| 66 6f 72 20 74 68 61 74 | 2c 20 75 73 65 20 66 72 |for that|, use fr|
|000008f0| 65 65 6c 79 2e 7d 0d 09 | 09 09 09 69 73 74 68 65 |eely.}..|...isthe|
|00000900| 72 65 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |re: inte|ger;....|
|00000910| 09 63 6f 6c 6c 69 73 69 | 6f 6e 77 69 74 68 3a 20 |.collisi|onwith: |
|00000920| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 09 77 68 61 |integer;|.....wha|
|00000930| 74 73 63 72 6e 69 73 72 | 65 63 74 3a 20 69 6e 74 |tscrnisr|ect: int|
|00000940| 65 67 65 72 3b 0d 09 09 | 09 09 6b 69 6c 6c 73 70 |eger;...|..killsp|
|00000950| 72 69 74 65 66 6c 61 67 | 3a 20 62 6f 6f 6c 65 61 |riteflag|: boolea|
|00000960| 6e 3b 0d 09 09 09 09 6d | 6f 64 65 3a 20 69 6e 74 |n;.....m|ode: int|
|00000970| 65 67 65 72 3b 0d 09 09 | 09 09 69 73 64 6f 6e 65 |eger;...|..isdone|
|00000980| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 0d 09 09 09 09 65 |: boolea|n;.....e|
|00000990| 78 74 72 61 2c 20 65 78 | 74 72 61 32 2c 20 65 78 |xtra, ex|tra2, ex|
|000009a0| 74 72 61 33 2c 20 65 78 | 74 72 61 34 2c 20 65 78 |tra3, ex|tra4, ex|
|000009b0| 74 72 61 35 3a 20 69 6e | 74 65 67 65 72 3b 0d 09 |tra5: in|teger;..|
|000009c0| 09 09 09 65 78 74 72 61 | 62 6f 6c 2c 20 65 78 74 |...extra|bol, ext|
|000009d0| 72 61 62 6f 6c 32 3a 20 | 62 6f 6f 6c 65 61 6e 3b |rabol2: |boolean;|
|000009e0| 0d 09 09 09 09 62 62 3a | 20 69 6e 74 65 67 65 72 |.....bb:| integer|
|000009f0| 3b 0d 09 09 09 65 6e 64 | 3b 0d 09 09 47 52 41 46 |;....end|;...GRAF|
|00000a00| 67 6c 6f 62 61 6c 73 20 | 3d 20 72 65 63 6f 72 64 |globals |= record|
|00000a10| 0d 09 09 09 09 62 63 6b | 67 72 6e 64 3a 20 47 52 |.....bck|grnd: GR|
|00000a20| 41 46 70 6f 72 74 3b 0d | 09 09 09 09 62 63 6b 67 |AFport;.|....bckg|
|00000a30| 72 6e 64 68 3a 20 47 44 | 48 61 6e 64 6c 65 3b 0d |rndh: GD|Handle;.|
|00000a40| 09 09 09 09 63 6f 6c 6f | 72 70 69 63 74 3a 20 47 |....colo|rpict: G|
|00000a50| 52 41 46 70 6f 72 74 3b | 0d 09 09 09 09 6d 61 73 |RAFport;|.....mas|
|00000a60| 6b 70 69 63 74 3a 20 47 | 52 41 46 70 6f 72 74 3b |kpict: G|RAFport;|
|00000a70| 0d 09 09 09 09 64 69 72 | 74 79 77 6f 72 6b 3a 20 |.....dir|tywork: |
|00000a80| 47 52 41 46 70 6f 72 74 | 3b 0d 09 09 09 09 63 6f |GRAFport|;.....co|
|00000a90| 6c 6f 72 70 69 63 74 68 | 3a 20 47 44 48 61 6e 64 |lorpicth|: GDHand|
|00000aa0| 6c 65 3b 0d 09 09 09 09 | 6d 61 73 6b 70 69 63 74 |le;.....|maskpict|
|00000ab0| 68 3a 20 47 44 48 61 6e | 64 6c 65 3b 0d 09 09 09 |h: GDHan|dle;....|
|00000ac0| 09 64 69 72 74 79 77 6f | 72 6b 68 3a 20 47 44 48 |.dirtywo|rkh: GDH|
|00000ad0| 61 6e 64 6c 65 3b 0d 09 | 09 09 09 43 75 72 50 6f |andle;..|...CurPo|
|00000ae0| 72 74 3a 20 47 57 50 74 | 72 3b 0d 09 09 09 09 43 |rt: GWPt|r;.....C|
|00000af0| 75 72 44 65 76 3a 20 47 | 44 48 61 6e 64 6c 65 3b |urDev: G|DHandle;|
|00000b00| 0d 09 09 09 09 64 69 66 | 66 6c 65 76 65 6c 3a 20 |.....dif|flevel: |
|00000b10| 62 6f 6f 6c 65 61 6e 3b | 7b 69 66 20 64 69 66 66 |boolean;|{if diff|
|00000b20| 6c 65 76 65 6c 3d 74 72 | 75 65 20 74 68 65 6e 20 |level=tr|ue then |
|00000b30| 73 70 72 69 74 65 73 20 | 6f 6e 20 64 69 66 66 2e |sprites |on diff.|
|00000b40| 20 6c 65 76 65 6c 73 20 | 62 75 74 20 73 61 6d 65 | levels |but same|
|00000b50| 20 68 6f 72 69 7a 2e 20 | 77 69 6c 6c 20 6e 6f 74 | horiz. |will not|
|00000b60| 20 63 6f 6c 6c 69 64 65 | 2e 7d 0d 09 09 09 09 77 | collide|.}.....w|
|00000b70| 69 6e 72 65 63 74 2c 20 | 73 63 72 6e 72 65 63 74 |inrect, |scrnrect|
|00000b80| 2c 20 65 78 74 72 61 72 | 65 63 74 2c 20 65 78 74 |, extrar|ect, ext|
|00000b90| 72 61 72 65 63 74 32 3a | 20 72 65 63 74 3b 0d 09 |rarect2:| rect;..|
|00000ba0| 09 09 09 70 69 63 74 68 | 61 6e 64 2c 20 65 78 74 |...picth|and, ext|
|00000bb0| 72 61 70 69 63 74 2c 20 | 65 78 74 72 61 70 69 63 |rapict, |extrapic|
|00000bc0| 74 32 3a 20 70 69 63 48 | 61 6e 64 6c 65 3b 0d 09 |t2: picH|andle;..|
|00000bd0| 09 09 09 77 68 61 74 73 | 63 72 6e 3a 20 69 6e 74 |...whats|crn: int|
|00000be0| 65 67 65 72 3b 0d 09 09 | 09 09 72 6f 6f 74 3a 20 |eger;...|..root: |
|00000bf0| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 09 4d 61 69 |integer;|.....Mai|
|00000c00| 6e 57 69 6e 64 6f 77 3a | 20 43 57 69 6e 64 6f 77 |nWindow:| CWindow|
|00000c10| 50 74 72 3b 0d 09 09 09 | 09 4d 6e 57 69 6e 64 3a |Ptr;....|.MnWind:|
|00000c20| 20 57 69 6e 64 6f 77 50 | 74 72 3b 0d 09 09 09 09 | WindowP|tr;.....|
|00000c30| 41 45 45 72 72 3a 20 6f | 73 65 72 72 3b 0d 09 09 |AEErr: o|serr;...|
|00000c40| 09 09 77 68 61 74 73 6f | 72 74 73 74 79 6c 65 2c |..whatso|rtstyle,|
|00000c50| 20 77 68 61 74 63 6f 6c | 6c 69 73 69 6f 6e 73 74 | whatcol|lisionst|
|00000c60| 79 6c 65 3a 20 69 6e 74 | 65 67 65 72 3b 0d 09 09 |yle: int|eger;...|
|00000c70| 09 09 61 72 65 6e 6f 6e | 65 3a 20 62 6f 6f 6c 65 |..arenon|e: boole|
|00000c80| 61 6e 3b 7b 77 68 65 74 | 68 65 72 20 74 68 65 72 |an;{whet|her ther|
|00000c90| 65 20 61 72 65 20 61 6e | 79 20 63 75 72 72 65 6e |e are an|y curren|
|00000ca0| 74 20 73 70 72 69 74 65 | 73 7d 0d 09 09 09 09 61 |t sprite|s}.....a|
|00000cb0| 75 74 6f 50 49 43 54 3a | 20 62 6f 6f 6c 65 61 6e |utoPICT:| boolean|
|00000cc0| 3b 0d 09 09 09 09 61 75 | 74 6f 73 6f 75 72 63 65 |;.....au|tosource|
|00000cd0| 72 65 63 74 2c 20 61 75 | 74 6f 73 69 7a 65 72 65 |rect, au|tosizere|
|00000ce0| 63 74 3a 20 72 65 63 74 | 3b 0d 09 09 09 65 6e 64 |ct: rect|;....end|
|00000cf0| 3b 0d 0d 09 76 61 72 0d | 09 09 67 47 52 41 46 3a |;...var.|..gGRAF:|
|00000d00| 20 47 52 41 46 67 6c 6f | 62 61 6c 73 3b 09 09 09 | GRAFglo|bals;...|
|00000d10| 09 7b 4d 6f 73 74 20 67 | 6c 6f 62 61 6c 73 20 69 |.{Most g|lobals i|
|00000d20| 6e 20 61 20 72 65 63 6f | 72 64 2e 20 53 65 65 20 |n a reco|rd. See |
|00000d30| 61 62 6f 76 65 2e 7d 0d | 09 09 74 68 65 73 70 72 |above.}.|..thespr|
|00000d40| 69 74 65 3a 20 61 72 72 | 61 79 5b 30 2e 2e 31 30 |ite: arr|ay[0..10|
|00000d50| 30 5d 20 6f 66 20 73 70 | 72 69 74 65 3b 0d 09 09 |0] of sp|rite;...|
|00000d60| 47 52 41 46 6f 73 65 72 | 72 3a 20 61 72 72 61 79 |GRAFoser|r: array|
|00000d70| 5b 31 2e 2e 34 30 5d 20 | 6f 66 20 6f 73 65 72 72 |[1..40] |of oserr|
|00000d80| 3b 0d 09 09 47 52 41 46 | 73 6e 64 32 3a 20 68 61 |;...GRAF|snd2: ha|
|00000d90| 6e 64 6c 65 3b 0d 09 09 | 47 52 41 46 6f 73 65 72 |ndle;...|GRAFoser|
|00000da0| 72 32 3a 20 6f 73 65 72 | 72 3b 0d 09 09 47 52 41 |r2: oser|r;...GRA|
|00000db0| 46 6f 73 65 72 72 32 32 | 3a 20 6f 73 65 72 72 3b |Foserr22|: oserr;|
|00000dc0| 0d 09 09 47 52 41 46 63 | 68 61 6e 6e 65 6c 32 3a |...GRAFc|hannel2:|
|00000dd0| 20 53 6e 64 43 68 61 6e | 50 74 72 3b 0d 09 09 47 | SndChan|Ptr;...G|
|00000de0| 52 41 46 63 68 61 6e 6e | 65 6c 3a 20 61 72 72 61 |RAFchann|el: arra|
|00000df0| 79 5b 31 2e 2e 32 30 5d | 20 6f 66 20 53 6e 64 43 |y[1..20]| of SndC|
|00000e00| 68 61 6e 50 74 72 3b 0d | 09 09 47 52 41 46 73 6e |hanPtr;.|..GRAFsn|
|00000e10| 64 63 6f 6d 6e 64 3a 20 | 53 6e 64 43 6f 6d 6d 61 |dcomnd: |SndComma|
|00000e20| 6e 64 3b 0d 09 09 6f 66 | 66 53 63 72 43 6f 6c 3a |nd;...of|fScrCol:|
|00000e30| 20 43 54 61 62 48 61 6e | 64 6c 65 3b 0d 09 09 44 | CTabHan|dle;...D|
|00000e40| 47 43 6f 6c 3a 20 52 47 | 42 43 6f 6c 6f 72 3b 0d |GCol: RG|BColor;.|
|00000e50| 09 09 44 47 45 76 65 6e | 74 3a 20 45 76 65 6e 74 |..DGEven|t: Event|
|00000e60| 52 65 63 6f 72 64 3b 0d | 0d 09 66 75 6e 63 74 69 |Record;.|..functi|
|00000e70| 6f 6e 20 4e 65 77 47 57 | 20 28 76 61 72 20 4f 53 |on NewGW| (var OS|
|00000e80| 47 57 3a 20 47 57 50 74 | 72 3b 20 50 69 78 65 6c |GW: GWPt|r; Pixel|
|00000e90| 44 65 70 74 68 3a 20 49 | 4e 54 45 47 45 52 3b 20 |Depth: I|NTEGER; |
|00000ea0| 42 64 73 52 65 63 74 3a | 20 52 65 63 74 3b 20 43 |BdsRect:| Rect; C|
|00000eb0| 6f 6c 54 61 62 6c 65 3a | 20 43 54 61 62 48 61 6e |olTable:| CTabHan|
|00000ec0| 64 6c 65 3b 20 47 44 65 | 76 3a 20 47 44 48 61 6e |dle; GDe|v: GDHan|
|00000ed0| 64 6c 65 3b 20 46 6c 61 | 67 73 3a 20 47 57 46 6c |dle; Fla|gs: GWFl|
|00000ee0| 61 67 73 29 3a 20 51 44 | 45 72 72 3b 0d 09 69 6e |ags): QD|Err;..in|
|00000ef0| 6c 69 6e 65 0d 09 09 24 | 32 30 33 43 2c 20 24 30 |line...$|203C, $0|
|00000f00| 30 31 36 2c 20 24 30 30 | 30 30 2c 20 24 41 42 31 |016, $00|00, $AB1|
|00000f10| 44 3b 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 55 70 |D;...fun|ction Up|
|00000f20| 64 61 74 65 47 57 20 28 | 76 61 72 20 4f 53 47 57 |dateGW (|var OSGW|
|00000f30| 3a 20 47 57 50 74 72 3b | 20 70 78 44 65 70 3a 20 |: GWPtr;| pxDep: |
|00000f40| 49 4e 54 45 47 45 52 3b | 20 42 64 73 52 65 63 74 |INTEGER;| BdsRect|
|00000f50| 3a 20 52 65 63 74 3b 20 | 43 6f 6c 54 61 62 6c 65 |: Rect; |ColTable|
|00000f60| 3a 20 43 54 61 62 48 61 | 6e 64 6c 65 3b 20 47 44 |: CTabHa|ndle; GD|
|00000f70| 65 76 3a 20 47 44 48 61 | 6e 64 6c 65 3b 20 46 6c |ev: GDHa|ndle; Fl|
|00000f80| 61 67 73 3a 20 47 57 46 | 6c 61 67 73 29 3a 20 47 |ags: GWF|lags): G|
|00000f90| 57 46 6c 61 67 73 3b 0d | 09 69 6e 6c 69 6e 65 0d |WFlags;.|.inline.|
|00000fa0| 09 09 24 32 30 33 43 2c | 20 24 30 30 31 36 2c 20 |..$203C,| $0016, |
|00000fb0| 24 30 30 30 33 2c 20 24 | 41 42 31 44 3b 0d 0d 09 |$0003, $|AB1D;...|
|00000fc0| 70 72 6f 63 65 64 75 72 | 65 20 44 69 73 70 6f 47 |procedur|e DispoG|
|00000fd0| 57 20 28 4f 53 47 57 3a | 20 47 57 50 74 72 29 3b |W (OSGW:| GWPtr);|
|00000fe0| 0d 09 69 6e 6c 69 6e 65 | 0d 09 09 24 32 30 33 43 |..inline|...$203C|
|00000ff0| 2c 20 24 30 30 30 34 2c | 20 24 30 30 30 34 2c 20 |, $0004,| $0004, |
|00001000| 24 41 42 31 44 3b 0d 0d | 09 70 72 6f 63 65 64 75 |$AB1D;..|.procedu|
|00001010| 72 65 20 47 65 74 47 57 | 20 28 76 61 72 20 70 6f |re GetGW| (var po|
|00001020| 72 74 3a 20 43 47 72 61 | 66 50 74 72 3b 20 76 61 |rt: CGra|fPtr; va|
|00001030| 72 20 47 44 48 3a 20 47 | 44 48 61 6e 64 6c 65 29 |r GDH: G|DHandle)|
|00001040| 3b 0d 09 69 6e 6c 69 6e | 65 0d 09 09 24 32 30 33 |;..inlin|e...$203|
|00001050| 43 2c 20 24 30 30 30 38 | 2c 20 24 30 30 30 35 2c |C, $0008|, $0005,|
|00001060| 20 24 41 42 31 44 3b 0d | 0d 09 70 72 6f 63 65 64 | $AB1D;.|..proced|
|00001070| 75 72 65 20 53 65 74 47 | 57 20 28 70 6f 72 74 3a |ure SetG|W (port:|
|00001080| 20 43 47 72 61 66 50 74 | 72 3b 20 47 44 48 3a 20 | CGrafPt|r; GDH: |
|00001090| 47 44 48 61 6e 64 6c 65 | 29 3b 0d 09 69 6e 6c 69 |GDHandle|);..inli|
|000010a0| 6e 65 0d 09 09 24 32 30 | 33 43 2c 20 24 30 30 30 |ne...$20|3C, $000|
|000010b0| 38 2c 20 24 30 30 30 36 | 2c 20 24 41 42 31 44 3b |8, $0006|, $AB1D;|
|000010c0| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 4c 63 6b 50 |...funct|ion LckP|
|000010d0| 69 78 20 28 50 4d 48 3a | 20 50 69 78 4d 61 70 48 |ix (PMH:| PixMapH|
|000010e0| 61 6e 64 6c 65 29 3a 20 | 42 4f 4f 4c 45 41 4e 3b |andle): |BOOLEAN;|
|000010f0| 0d 09 69 6e 6c 69 6e 65 | 0d 09 09 24 32 30 33 43 |..inline|...$203C|
|00001100| 2c 20 24 30 30 30 34 2c | 20 24 30 30 30 31 2c 20 |, $0004,| $0001, |
|00001110| 24 41 42 31 44 3b 0d 0d | 09 70 72 6f 63 65 64 75 |$AB1D;..|.procedu|
|00001120| 72 65 20 55 6e 6c 63 6b | 50 69 78 20 28 50 4d 48 |re Unlck|Pix (PMH|
|00001130| 3a 20 50 69 78 4d 61 70 | 48 61 6e 64 6c 65 29 3b |: PixMap|Handle);|
|00001140| 0d 09 69 6e 6c 69 6e 65 | 0d 09 09 24 32 30 33 43 |..inline|...$203C|
|00001150| 2c 20 24 30 30 30 34 2c | 20 24 30 30 30 32 2c 20 |, $0004,| $0002, |
|00001160| 24 41 42 31 44 3b 0d 0d | 09 66 75 6e 63 74 69 6f |$AB1D;..|.functio|
|00001170| 6e 20 53 6e 64 4e 65 77 | 43 68 61 6e 6e 65 6c 20 |n SndNew|Channel |
|00001180| 28 76 61 72 20 43 68 61 | 6e 3a 20 53 6e 64 43 68 |(var Cha|n: SndCh|
|00001190| 61 6e 50 74 72 3b 20 53 | 79 6e 74 68 3a 20 49 6e |anPtr; S|ynth: In|
|000011a0| 74 65 67 65 72 3b 20 49 | 6e 69 74 3a 20 4c 6f 6e |teger; I|nit: Lon|
|000011b0| 67 49 6e 74 3b 20 55 73 | 65 72 52 6f 75 74 3a 20 |gInt; Us|erRout: |
|000011c0| 50 72 6f 63 50 74 72 29 | 3a 20 4f 53 45 72 72 3b |ProcPtr)|: OSErr;|
|000011d0| 0d 09 69 6e 6c 69 6e 65 | 0d 09 09 24 41 38 30 37 |..inline|...$A807|
|000011e0| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 53 6e 64 |;...func|tion Snd|
|000011f0| 50 6c 61 79 20 28 63 68 | 61 6e 3a 20 53 6e 64 43 |Play (ch|an: SndC|
|00001200| 68 61 6e 50 74 72 3b 20 | 53 6e 64 48 64 6c 3a 20 |hanPtr; |SndHdl: |
|00001210| 48 61 6e 64 6c 65 3b 20 | 41 73 79 6e 63 3a 20 42 |Handle; |Async: B|
|00001220| 6f 6f 6c 65 61 6e 29 3a | 20 4f 53 45 72 72 3b 0d |oolean):| OSErr;.|
|00001230| 09 69 6e 6c 69 6e 65 0d | 09 09 24 41 38 30 35 3b |.inline.|..$A805;|
|00001240| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 53 6e 64 44 |...funct|ion SndD|
|00001250| 69 73 70 6f 73 65 43 68 | 61 6e 6e 65 6c 20 28 43 |isposeCh|annel (C|
|00001260| 68 61 6e 3a 20 53 6e 64 | 43 68 61 6e 50 74 72 3b |han: Snd|ChanPtr;|
|00001270| 20 51 74 4e 6f 77 3a 20 | 42 6f 6f 6c 65 61 6e 29 | QtNow: |Boolean)|
|00001280| 3a 20 4f 53 45 72 72 3b | 0d 09 69 6e 6c 69 6e 65 |: OSErr;|..inline|
|00001290| 0d 09 09 24 41 38 30 31 | 3b 0d 0d 09 70 72 6f 63 |...$A801|;...proc|
|000012a0| 65 64 75 72 65 20 63 61 | 6c 6c 70 6e 6f 61 72 67 |edure ca|llpnoarg|
|000012b0| 20 28 6d 79 50 72 6f 63 | 3a 20 50 72 6f 63 50 74 | (myProc|: ProcPt|
|000012c0| 72 29 3b 0d 0d 7b 20 46 | 6f 72 20 61 6c 6c 20 74 |r);..{ F|or all t|
|000012d0| 68 65 20 50 72 6f 63 65 | 64 75 72 65 73 20 74 68 |he Proce|dures th|
|000012e0| 61 74 20 61 72 65 20 63 | 61 6c 6c 65 64 20 77 69 |at are c|alled wi|
|000012f0| 74 68 20 6e 6f 20 61 72 | 67 75 6d 65 6e 74 73 09 |th no ar|guments.|
|00001300| 09 09 09 09 09 09 7d 0d | 0d 09 69 6e 6c 69 6e 65 |......}.|..inline|
|00001310| 0d 09 09 24 32 30 35 66 | 2c 20 09 7b 6d 6f 76 65 |...$205f|, .{move|
|00001320| 61 2e 6c 20 20 28 61 37 | 29 2b 2c 61 30 09 09 3b |a.l  (a7|)+,a0..;|
|00001330| 20 28 61 30 29 20 69 73 | 20 61 20 70 74 72 20 74 | (a0) is| a ptr t|
|00001340| 6f 20 73 74 72 69 6e 67 | 2c 20 34 28 61 30 29 20 |o string|, 4(a0) |
|00001350| 69 73 20 6d 6f 64 65 7d | 0d 09 09 24 34 65 39 30 |is mode}|...$4e90|
|00001360| 3b 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 63 61 |;...proc|edure ca|
|00001370| 6c 6c 54 61 73 6b 20 28 | 76 61 72 20 61 73 70 72 |llTask (|var aspr|
|00001380| 69 74 65 3a 20 73 70 72 | 69 74 65 3b 20 6d 79 50 |ite: spr|ite; myP|
|00001390| 72 6f 63 3a 20 50 72 6f | 63 50 74 72 29 3b 0d 09 |roc: Pro|cPtr);..|
|000013a0| 69 6e 6c 69 6e 65 0d 09 | 09 24 32 30 35 66 2c 20 |inline..|.$205f, |
|000013b0| 09 7b 6d 6f 76 65 61 2e | 6c 20 20 28 61 37 29 2b |.{movea.|l  (a7)+|
|000013c0| 2c 61 30 09 09 3b 20 28 | 61 30 29 20 69 73 20 61 |,a0..; (|a0) is a|
|000013d0| 20 70 74 72 20 74 6f 20 | 73 74 72 69 6e 67 2c 20 | ptr to |string, |
|000013e0| 34 28 61 30 29 20 69 73 | 20 6d 6f 64 65 7d 0d 09 |4(a0) is| mode}..|
|000013f0| 09 24 34 65 39 30 3b 0d | 09 70 72 6f 63 65 64 75 |.$4e90;.|.procedu|
|00001400| 72 65 20 63 61 6c 6c 48 | 69 74 54 61 73 6b 20 28 |re callH|itTask (|
|00001410| 76 61 72 20 79 73 70 72 | 69 74 65 2c 20 68 73 70 |var yspr|ite, hsp|
|00001420| 72 69 74 65 3a 20 73 70 | 72 69 74 65 3b 20 6d 79 |rite: sp|rite; my|
|00001430| 50 72 6f 63 3a 20 50 72 | 6f 63 50 74 72 29 3b 0d |Proc: Pr|ocPtr);.|
|00001440| 09 69 6e 6c 69 6e 65 0d | 09 09 24 32 30 35 66 2c |.inline.|..$205f,|
|00001450| 20 09 7b 6d 6f 76 65 61 | 2e 6c 20 20 28 61 37 29 | .{movea|.l  (a7)|
|00001460| 2b 2c 61 30 09 09 3b 20 | 28 61 30 29 20 69 73 20 |+,a0..; |(a0) is |
|00001470| 61 20 70 74 72 20 74 6f | 20 73 74 72 69 6e 67 2c |a ptr to| string,|
|00001480| 20 34 28 61 30 29 20 69 | 73 20 6d 6f 64 65 7d 0d | 4(a0) i|s mode}.|
|00001490| 09 09 24 34 65 39 30 3b | 0d 0d 09 70 72 6f 63 65 |..$4e90;|...proce|
|000014a0| 64 75 72 65 20 6f 70 65 | 6e 63 68 61 6e 6e 65 6c |dure ope|nchannel|
|000014b0| 20 28 74 68 65 6e 75 6d | 3a 20 69 6e 74 65 67 65 | (thenum|: intege|
|000014c0| 72 29 3b 0d 09 70 72 6f | 63 65 64 75 72 65 20 70 |r);..pro|cedure p|
|000014d0| 6c 61 79 73 6f 75 6e 64 | 63 68 61 6e 6e 65 6c 20 |laysound|channel |
|000014e0| 28 73 6e 64 3a 20 68 61 | 6e 64 6c 65 3b 20 74 68 |(snd: ha|ndle; th|
|000014f0| 65 63 68 61 6e 3a 20 69 | 6e 74 65 67 65 72 3b 20 |echan: i|nteger; |
|00001500| 69 66 61 73 79 6e 63 3a | 20 62 6f 6f 6c 65 61 6e |ifasync:| boolean|
|00001510| 29 3b 0d 09 70 72 6f 63 | 65 64 75 72 65 20 6b 69 |);..proc|edure ki|
|00001520| 6c 6c 63 68 61 6e 6e 65 | 6c 20 28 74 68 65 63 68 |llchanne|l (thech|
|00001530| 61 6e 3a 20 69 6e 74 65 | 67 65 72 3b 20 69 66 61 |an: inte|ger; ifa|
|00001540| 73 79 6e 63 3a 20 62 6f | 6f 6c 65 61 6e 29 3b 0d |sync: bo|olean);.|
|00001550| 09 70 72 6f 63 65 64 75 | 72 65 20 69 6e 69 74 73 |.procedu|re inits|
|00001560| 6f 75 6e 64 20 28 66 72 | 6f 6d 2c 20 64 65 73 74 |ound (fr|om, dest|
|00001570| 2c 20 68 6f 77 6d 61 6e | 79 3a 20 69 6e 74 65 67 |, howman|y: integ|
|00001580| 65 72 29 3b 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |er);..pr|ocedure |
|00001590| 67 65 74 73 6f 75 6e 64 | 20 28 74 68 65 6f 6e 65 |getsound| (theone|
|000015a0| 3a 20 69 6e 74 65 67 65 | 72 29 3b 0d 09 66 75 6e |: intege|r);..fun|
|000015b0| 63 74 69 6f 6e 20 67 65 | 74 63 68 61 6e 6e 65 6c |ction ge|tchannel|
|000015c0| 73 6f 75 6e 64 20 28 74 | 68 65 6f 6e 65 3a 20 69 |sound (t|heone: i|
|000015d0| 6e 74 65 67 65 72 29 3a | 20 68 61 6e 64 6c 65 3b |nteger):| handle;|
|000015e0| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 70 6c 61 79 |..proced|ure play|
|000015f0| 73 6f 75 6e 64 20 28 69 | 66 61 73 79 6e 63 3a 20 |sound (i|fasync: |
|00001600| 62 6f 6f 6c 65 61 6e 29 | 3b 0d 09 66 75 6e 63 74 |boolean)|;..funct|
|00001610| 69 6f 6e 20 47 52 41 46 | 4e 75 6d 54 6f 53 74 72 |ion GRAF|NumToStr|
|00001620| 69 6e 67 20 28 6c 3a 20 | 69 6e 74 65 67 65 72 29 |ing (l: |integer)|
|00001630| 3a 20 53 74 72 32 35 35 | 3b 0d 09 66 75 6e 63 74 |: Str255|;..funct|
|00001640| 69 6f 6e 20 72 61 6e 64 | 6f 6d 69 7a 65 20 28 74 |ion rand|omize (t|
|00001650| 68 65 6e 75 6d 3a 20 69 | 6e 74 65 67 65 72 29 3a |henum: i|nteger):|
|00001660| 20 69 6e 74 65 67 65 72 | 3b 0d 7b 69 6e 69 74 69 | integer|;.{initi|
|00001670| 61 6c 69 7a 69 6e 67 20 | 61 6e 64 20 63 75 73 74 |alizing |and cust|
|00001680| 6f 6d 69 7a 69 6e 67 7d | 0d 09 70 72 6f 63 65 64 |omizing}|..proced|
|00001690| 75 72 65 20 47 52 41 46 | 49 6e 69 74 20 28 70 69 |ure GRAF|Init (pi|
|000016a0| 63 74 49 44 2c 20 78 73 | 69 7a 65 2c 20 79 73 69 |ctID, xs|ize, ysi|
|000016b0| 7a 65 3a 20 69 6e 74 65 | 67 65 72 29 3b 0d 09 70 |ze: inte|ger);..p|
|000016c0| 72 6f 63 65 64 75 72 65 | 20 47 52 41 46 49 6e 69 |rocedure| GRAFIni|
|000016d0| 74 50 49 43 54 20 28 72 | 65 63 74 73 69 7a 65 2c |tPICT (r|ectsize,|
|000016e0| 20 65 61 73 79 72 65 63 | 74 3a 20 72 65 63 74 3b | easyrec|t: rect;|
|000016f0| 20 69 66 65 61 73 79 3a | 20 62 6f 6f 6c 65 61 6e | ifeasy:| boolean|
|00001700| 29 3b 0d 09 70 72 6f 63 | 65 64 75 72 65 20 73 65 |);..proc|edure se|
|00001710| 74 73 6f 72 74 73 74 79 | 6c 65 20 28 74 68 65 6f |tsortsty|le (theo|
|00001720| 6e 65 3a 20 69 6e 74 65 | 67 65 72 29 3b 7b 31 3d |ne: inte|ger);{1=|
|00001730| 62 61 63 6b 2d 74 6f 2d | 66 72 6f 6e 74 2c 20 32 |back-to-|front, 2|
|00001740| 3d 6e 6f 20 73 6f 72 74 | 69 6e 67 7d 0d 09 70 72 |=no sort|ing}..pr|
|00001750| 6f 63 65 64 75 72 65 20 | 73 65 74 63 6f 6c 6c 69 |ocedure |setcolli|
|00001760| 73 69 6f 6e 68 61 6e 64 | 6c 69 6e 67 20 28 74 68 |sionhand|ling (th|
|00001770| 65 6f 6e 65 3a 20 69 6e | 74 65 67 65 72 29 3b 7b |eone: in|teger);{|
|00001780| 31 3d 63 61 6c 6c 20 62 | 6f 74 68 20 68 69 74 74 |1=call b|oth hitt|
|00001790| 61 73 6b 73 2c 20 32 3d | 63 61 6c 6c 20 6f 6e 6c |asks, 2=|call onl|
|000017a0| 79 20 6f 6e 65 7d 0d 7b | 67 65 74 20 66 61 63 65 |y one}.{|get face|
|000017b0| 73 2e 7d 0d 09 66 75 6e | 63 74 69 6f 6e 20 4e 65 |s.}..fun|ction Ne|
|000017c0| 77 46 61 63 65 20 28 6e | 72 65 73 6e 75 6d 3a 20 |wFace (n|resnum: |
|000017d0| 69 6e 74 65 67 65 72 3b | 20 74 68 65 73 69 7a 65 |integer;| thesize|
|000017e0| 2c 20 74 68 65 63 6f 6c | 6c 69 73 69 6f 6e 3a 20 |, thecol|lision: |
|000017f0| 72 65 63 74 29 3a 20 46 | 61 63 65 3b 7b 74 68 69 |rect): F|ace;{thi|
|00001800| 73 20 64 6f 65 73 20 4e | 4f 54 20 77 6f 72 6b 20 |s does N|OT work |
|00001810| 66 6f 72 20 50 49 43 54 | 53 21 21 21 21 21 21 21 |for PICT|S!!!!!!!|
|00001820| 21 7d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 4e 65 77 |!}..func|tion New|
|00001830| 53 70 72 69 74 65 20 28 | 74 68 65 6b 69 6e 64 2c |Sprite (|thekind,|
|00001840| 20 68 70 6f 73 2c 20 76 | 70 6f 73 2c 20 74 68 65 | hpos, v|pos, the|
|00001850| 6c 61 79 65 72 3a 20 69 | 6e 74 65 67 65 72 3b 20 |layer: i|nteger; |
|00001860| 74 68 61 74 66 61 63 65 | 3a 20 66 61 63 65 3b 20 |thatface|: face; |
|00001870| 74 68 65 74 61 73 6b 2c | 20 74 68 65 68 69 74 54 |thetask,| thehitT|
|00001880| 61 73 6b 2c 20 73 65 74 | 75 70 74 61 73 6b 3a 20 |ask, set|uptask: |
|00001890| 50 72 6f 63 50 74 72 29 | 3a 20 69 6e 74 65 67 65 |ProcPtr)|: intege|
|000018a0| 72 3b 0d 09 70 72 6f 63 | 65 64 75 72 65 20 6b 69 |r;..proc|edure ki|
|000018b0| 6c 6c 73 70 72 69 74 65 | 20 28 76 61 72 20 77 68 |llsprite| (var wh|
|000018c0| 61 74 6f 6e 65 3a 20 73 | 70 72 69 74 65 29 3b 0d |atone: s|prite);.|
|000018d0| 09 66 75 6e 63 74 69 6f | 6e 20 6e 65 77 50 49 43 |.functio|n newPIC|
|000018e0| 54 46 61 63 65 20 28 63 | 72 65 73 6e 75 6d 2c 20 |TFace (c|resnum, |
|000018f0| 6d 72 65 73 6e 75 6d 3a | 20 69 6e 74 65 67 65 72 |mresnum:| integer|
|00001900| 3b 20 74 68 65 73 69 7a | 65 2c 20 74 68 65 63 6f |; thesiz|e, theco|
|00001910| 6c 6c 69 73 69 6f 6e 2c | 20 77 68 65 72 65 73 6f |llision,| whereso|
|00001920| 75 72 63 65 3a 20 72 65 | 63 74 29 3a 20 46 61 63 |urce: re|ct): Fac|
|00001930| 65 3b 0d 7b 74 68 65 20 | 68 65 61 72 74 20 6f 66 |e;.{the |heart of|
|00001940| 20 74 68 65 20 77 68 6f | 6c 65 20 74 68 69 6e 67 | the who|le thing|
|00001950| 21 21 7d 0d 09 70 72 6f | 63 65 64 75 72 65 20 52 |!!}..pro|cedure R|
|00001960| 75 6e 47 52 41 46 20 28 | 68 6f 77 66 69 78 3a 20 |unGRAF (|howfix: |
|00001970| 69 6e 74 65 67 65 72 29 | 3b 0d 09 70 72 6f 63 65 |integer)|;..proce|
|00001980| 64 75 72 65 20 53 6b 69 | 70 47 52 41 46 3b 0d 7b |dure Ski|pGRAF;.{|
|00001990| 65 78 74 72 61 20 75 74 | 69 6c 69 74 79 20 70 72 |extra ut|ility pr|
|000019a0| 6f 63 65 64 75 72 65 73 | 7d 0d 09 70 72 6f 63 65 |ocedures|}..proce|
|000019b0| 64 75 72 65 20 67 65 74 | 6b 65 79 47 52 41 46 3b |dure get|keyGRAF;|
|000019c0| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 75 70 64 61 |..proced|ure upda|
|000019d0| 74 65 77 68 6f 6c 65 73 | 63 72 6e 3b 0d 09 66 75 |tewholes|crn;..fu|
|000019e0| 6e 63 74 69 6f 6e 20 63 | 6f 6c 6c 69 73 69 6f 6e |nction c|ollision|
|000019f0| 74 65 73 74 20 28 76 61 | 72 20 74 68 65 6f 6e 65 |test (va|r theone|
|00001a00| 3a 20 73 70 72 69 74 65 | 3b 20 68 6d 6f 76 2c 20 |: sprite|; hmov, |
|00001a10| 76 6d 6f 76 3a 20 69 6e | 74 65 67 65 72 29 3a 20 |vmov: in|teger): |
|00001a20| 62 6f 6f 6c 65 61 6e 3b | 0d 09 70 72 6f 63 65 64 |boolean;|..proced|
|00001a30| 75 72 65 20 70 75 74 66 | 61 63 65 6f 6e 62 61 63 |ure putf|aceonbac|
|00001a40| 6b 67 72 6f 75 6e 64 20 | 28 77 68 61 74 66 61 63 |kground |(whatfac|
|00001a50| 65 3a 20 66 61 63 65 3b | 20 74 68 65 70 6f 69 6e |e: face;| thepoin|
|00001a60| 74 3a 20 70 6f 69 6e 74 | 29 3b 7b 74 68 69 73 20 |t: point|);{this |
|00001a70| 6e 65 65 64 73 20 50 49 | 43 54 20 73 74 75 66 66 |needs PI|CT stuff|
|00001a80| 20 70 75 74 20 69 6e 21 | 21 21 21 21 21 21 21 21 | put in!|!!!!!!!!|
|00001a90| 21 21 21 21 21 21 21 21 | 21 21 21 21 21 21 21 21 |!!!!!!!!|!!!!!!!!|
|00001aa0| 21 21 21 21 21 21 21 7d | 0d 09 70 72 6f 63 65 64 |!!!!!!!}|..proced|
|00001ab0| 75 72 65 20 66 72 65 73 | 68 62 61 63 6b 67 72 6f |ure fres|hbackgro|
|00001ac0| 75 6e 64 20 28 70 69 63 | 74 49 44 3a 20 69 6e 74 |und (pic|tID: int|
|00001ad0| 65 67 65 72 29 3b 0d 09 | 70 72 6f 63 65 64 75 72 |eger);..|procedur|
|00001ae0| 65 20 6b 69 6c 6c 61 6c | 6c 73 70 72 69 74 65 73 |e killal|lsprites|
|00001af0| 3b 0d 09 70 72 6f 63 65 | 64 75 72 65 20 75 70 64 |;..proce|dure upd|
|00001b00| 61 74 65 74 68 65 73 63 | 72 65 65 6e 3b 0d 09 66 |atethesc|reen;..f|
|00001b10| 75 6e 63 74 69 6f 6e 20 | 64 6f 61 6c 65 72 74 20 |unction |doalert |
|00001b20| 28 74 68 65 73 74 72 69 | 6e 67 3a 20 73 74 72 32 |(thestri|ng: str2|
|00001b30| 35 35 3b 20 74 68 65 73 | 69 7a 65 3a 20 69 6e 74 |55; thes|ize: int|
|00001b40| 65 67 65 72 3b 20 68 6f | 77 72 65 66 72 65 73 68 |eger; ho|wrefresh|
|00001b50| 3a 20 69 6e 74 65 67 65 | 72 29 3a 20 62 6f 6f 6c |: intege|r): bool|
|00001b60| 65 61 6e 3b 0d 0d 69 6d | 70 6c 65 6d 65 6e 74 61 |ean;..im|plementa|
|00001b70| 74 69 6f 6e 0d 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |tion...f|unction |
|00001b80| 70 75 74 69 6e 66 61 63 | 65 20 28 66 69 72 73 74 |putinfac|e (first|
|00001b90| 3a 20 66 61 63 65 29 3a | 20 66 61 63 65 3b 0d 09 |: face):| face;..|
|00001ba0| 66 6f 72 77 61 72 64 3b | 0d 0d 09 70 72 6f 63 65 |forward;|...proce|
|00001bb0| 64 75 72 65 20 73 65 74 | 63 6f 6c 6c 69 73 69 6f |dure set|collisio|
|00001bc0| 6e 68 61 6e 64 6c 69 6e | 67 20 28 74 68 65 6f 6e |nhandlin|g (theon|
|00001bd0| 65 3a 20 69 6e 74 65 67 | 65 72 29 3b 0d 09 62 65 |e: integ|er);..be|
|00001be0| 67 69 6e 0d 09 09 69 66 | 20 74 68 65 6f 6e 65 20 |gin...if| theone |
|00001bf0| 3c 20 33 20 74 68 65 6e | 0d 09 09 09 67 47 52 41 |< 3 then|....gGRA|
|00001c00| 46 2e 77 68 61 74 63 6f | 6c 6c 69 73 69 6f 6e 73 |F.whatco|llisions|
|00001c10| 74 79 6c 65 20 3a 3d 20 | 74 68 65 6f 6e 65 3b 0d |tyle := |theone;.|
|00001c20| 09 65 6e 64 3b 0d 0d 09 | 70 72 6f 63 65 64 75 72 |.end;...|procedur|
|00001c30| 65 20 66 72 65 73 68 62 | 61 63 6b 67 72 6f 75 6e |e freshb|ackgroun|
|00001c40| 64 20 28 70 69 63 74 49 | 44 3a 20 69 6e 74 65 67 |d (pictI|D: integ|
|00001c50| 65 72 29 3b 0d 09 09 76 | 61 72 0d 09 09 09 74 65 |er);...v|ar....te|
|00001c60| 6d 70 32 3a 20 72 65 63 | 74 3b 0d 09 62 65 67 69 |mp2: rec|t;..begi|
|00001c70| 6e 0d 09 09 47 65 74 47 | 57 28 43 47 72 61 66 50 |n...GetG|W(CGrafP|
|00001c80| 74 72 28 67 47 52 41 46 | 2e 43 75 72 50 6f 72 74 |tr(gGRAF|.CurPort|
|00001c90| 29 2c 20 67 47 52 41 46 | 2e 43 75 72 44 65 76 29 |), gGRAF|.CurDev)|
|00001ca0| 3b 0d 09 09 53 65 74 47 | 57 28 67 47 52 41 46 2e |;...SetG|W(gGRAF.|
|00001cb0| 62 63 6b 67 72 6e 64 2e | 74 68 65 70 6f 72 74 2c |bckgrnd.|theport,|
|00001cc0| 20 67 47 52 41 46 2e 62 | 63 6b 67 72 6e 64 68 29 | gGRAF.b|ckgrndh)|
|00001cd0| 3b 0d 09 09 67 47 52 41 | 46 2e 50 69 63 74 48 61 |;...gGRA|F.PictHa|
|00001ce0| 6e 64 20 3a 3d 20 47 65 | 74 50 69 63 74 75 72 65 |nd := Ge|tPicture|
|00001cf0| 28 70 69 63 74 49 44 29 | 3b 0d 09 09 69 66 20 4c |(pictID)|;...if L|
|00001d00| 63 6b 50 69 78 28 67 47 | 52 41 46 2e 62 63 6b 67 |ckPix(gG|RAF.bckg|
|00001d10| 72 6e 64 2e 74 68 65 70 | 6f 72 74 5e 2e 70 6f 72 |rnd.thep|ort^.por|
|00001d20| 74 50 69 78 4d 61 70 29 | 20 74 68 65 6e 0d 09 09 |tPixMap)| then...|
|00001d30| 09 62 65 67 69 6e 0d 09 | 09 09 09 66 69 6c 6c 72 |.begin..|...fillr|
|00001d40| 65 63 74 28 67 47 52 41 | 46 2e 73 63 72 6e 72 65 |ect(gGRA|F.scrnre|
|00001d50| 63 74 2c 20 62 6c 61 63 | 6b 29 3b 0d 09 09 09 09 |ct, blac|k);.....|
|00001d60| 73 65 74 72 65 63 74 28 | 74 65 6d 70 32 2c 20 67 |setrect(|temp2, g|
|00001d70| 47 52 41 46 2e 73 63 72 | 6e 72 65 63 74 2e 6c 65 |GRAF.scr|nrect.le|
|00001d80| 66 74 20 2d 20 35 2c 20 | 67 47 52 41 46 2e 73 63 |ft - 5, |gGRAF.sc|
|00001d90| 72 6e 72 65 63 74 2e 74 | 6f 70 2c 20 67 47 52 41 |rnrect.t|op, gGRA|
|00001da0| 46 2e 73 63 72 6e 72 65 | 63 74 2e 72 69 67 68 74 |F.scrnre|ct.right|
|00001db0| 2c 20 67 47 52 41 46 2e | 73 63 72 6e 72 65 63 74 |, gGRAF.|scrnrect|
|00001dc0| 2e 62 6f 74 74 6f 6d 29 | 3b 0d 09 09 09 09 44 72 |.bottom)|;.....Dr|
|00001dd0| 61 77 50 69 63 74 75 72 | 65 28 67 47 52 41 46 2e |awPictur|e(gGRAF.|
|00001de0| 50 69 63 74 48 61 6e 64 | 2c 20 74 65 6d 70 32 29 |PictHand|, temp2)|
|00001df0| 3b 0d 09 09 09 65 6e 64 | 3b 0d 09 09 55 6e 6c 63 |;....end|;...Unlc|
|00001e00| 6b 50 69 78 28 67 47 52 | 41 46 2e 62 63 6b 67 72 |kPix(gGR|AF.bckgr|
|00001e10| 6e 64 2e 74 68 65 70 6f | 72 74 5e 2e 70 6f 72 74 |nd.thepo|rt^.port|
|00001e20| 50 69 78 4d 61 70 29 3b | 0d 09 09 53 65 74 47 57 |PixMap);|...SetGW|
|00001e30| 28 43 47 72 61 66 50 74 | 72 28 67 47 52 41 46 2e |(CGrafPt|r(gGRAF.|
|00001e40| 43 75 72 50 6f 72 74 29 | 2c 20 67 47 52 41 46 2e |CurPort)|, gGRAF.|
|00001e50| 43 75 72 44 65 76 29 3b | 0d 09 09 43 6f 70 79 42 |CurDev);|...CopyB|
|00001e60| 69 74 73 28 47 72 61 66 | 50 74 72 28 67 47 52 41 |its(Graf|Ptr(gGRA|
|00001e70| 46 2e 62 63 6b 67 72 6e | 64 2e 74 68 65 70 6f 72 |F.bckgrn|d.thepor|
|00001e80| 74 29 5e 2e 70 6f 72 74 | 42 69 74 73 2c 20 47 72 |t)^.port|Bits, Gr|
|00001e90| 61 66 50 74 72 28 67 47 | 52 41 46 2e 43 75 72 50 |afPtr(gG|RAF.CurP|
|00001ea0| 6f 72 74 29 5e 2e 70 6f | 72 74 42 69 74 73 2c 20 |ort)^.po|rtBits, |
|00001eb0| 67 47 52 41 46 2e 73 63 | 72 6e 72 65 63 74 2c 20 |gGRAF.sc|rnrect, |
|00001ec0| 67 47 52 41 46 2e 73 63 | 72 6e 72 65 63 74 2c 20 |gGRAF.sc|rnrect, |
|00001ed0| 73 72 63 43 6f 70 79 2c | 20 6e 69 6c 29 3b 0d 09 |srcCopy,| nil);..|
|00001ee0| 09 43 6f 70 79 42 69 74 | 73 28 47 72 61 66 50 74 |.CopyBit|s(GrafPt|
|00001ef0| 72 28 67 47 52 41 46 2e | 62 63 6b 67 72 6e 64 2e |r(gGRAF.|bckgrnd.|
|00001f00| 74 68 65 70 6f 72 74 29 | 5e 2e 70 6f 72 74 42 69 |theport)|^.portBi|
|00001f10| 74 73 2c 20 47 72 61 66 | 50 74 72 28 67 47 52 41 |ts, Graf|Ptr(gGRA|
|00001f20| 46 2e 64 69 72 74 79 77 | 6f 72 6b 2e 74 68 65 70 |F.dirtyw|ork.thep|
|00001f30| 6f 72 74 29 5e 2e 70 6f | 72 74 42 69 74 73 2c 20 |ort)^.po|rtBits, |
|00001f40| 67 47 52 41 46 2e 73 63 | 72 6e 72 65 63 74 2c 20 |gGRAF.sc|rnrect, |
|00001f50| 67 47 52 41 46 2e 73 63 | 72 6e 72 65 63 74 2c 20 |gGRAF.sc|rnrect, |
|00001f60| 73 72 63 43 6f 70 79 2c | 20 6e 69 6c 29 3b 0d 09 |srcCopy,| nil);..|
|00001f70| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|00001f80| 20 70 75 74 66 61 63 65 | 6f 6e 62 61 63 6b 67 72 | putface|onbackgr|
|00001f90| 6f 75 6e 64 20 28 77 68 | 61 74 66 61 63 65 3a 20 |ound (wh|atface: |
|00001fa0| 66 61 63 65 3b 20 74 68 | 65 70 6f 69 6e 74 3a 20 |face; th|epoint: |
|00001fb0| 70 6f 69 6e 74 29 3b 0d | 09 09 76 61 72 0d 09 09 |point);.|..var...|
|00001fc0| 09 61 3a 20 72 65 63 74 | 3b 0d 09 62 65 67 69 6e |.a: rect|;..begin|
|00001fd0| 0d 09 09 47 65 74 47 57 | 28 43 47 72 61 66 50 74 |...GetGW|(CGrafPt|
|00001fe0| 72 28 67 47 52 41 46 2e | 43 75 72 50 6f 72 74 29 |r(gGRAF.|CurPort)|
|00001ff0| 2c 20 67 47 52 41 46 2e | 43 75 72 44 65 76 29 3b |, gGRAF.|CurDev);|
|00002000| 0d 09 09 53 65 74 47 57 | 28 67 47 52 41 46 2e 62 |...SetGW|(gGRAF.b|
|00002010| 63 6b 67 72 6e 64 2e 74 | 68 65 70 6f 72 74 2c 20 |ckgrnd.t|heport, |
|00002020| 67 47 52 41 46 2e 62 63 | 6b 67 72 6e 64 68 29 3b |gGRAF.bc|kgrndh);|
|00002030| 0d 09 09 69 66 20 4c 63 | 6b 50 69 78 28 67 47 52 |...if Lc|kPix(gGR|
|00002040| 41 46 2e 62 63 6b 67 72 | 6e 64 2e 74 68 65 70 6f |AF.bckgr|nd.thepo|
|00002050| 72 74 5e 2e 70 6f 72 74 | 50 69 78 4d 61 70 29 20 |rt^.port|PixMap) |
|00002060| 74 68 65 6e 0d 09 09 09 | 62 65 67 69 6e 0d 09 09 |then....|begin...|
|00002070| 09 09 73 65 74 72 65 63 | 74 28 61 2c 20 74 68 65 |..setrec|t(a, the|
|00002080| 70 6f 69 6e 74 2e 68 2c | 20 74 68 65 70 6f 69 6e |point.h,| thepoin|
|00002090| 74 2e 76 2c 20 74 68 65 | 70 6f 69 6e 74 2e 68 20 |t.v, the|point.h |
|000020a0| 2b 20 77 68 61 74 66 61 | 63 65 2e 73 69 7a 65 72 |+ whatfa|ce.sizer|
|000020b0| 65 63 74 2e 72 69 67 68 | 74 2c 20 74 68 65 70 6f |ect.righ|t, thepo|
|000020c0| 69 6e 74 2e 76 20 2b 20 | 77 68 61 74 66 61 63 65 |int.v + |whatface|
|000020d0| 2e 73 69 7a 65 72 65 63 | 74 2e 62 6f 74 74 6f 6d |.sizerec|t.bottom|
|000020e0| 29 3b 0d 09 09 09 09 70 | 6c 6f 74 63 69 63 6f 6e |);.....p|lotcicon|
|000020f0| 28 61 2c 20 77 68 61 74 | 66 61 63 65 2e 74 68 65 |(a, what|face.the|
|00002100| 63 69 63 6f 6e 29 3b 0d | 09 09 09 65 6e 64 3b 0d |cicon);.|...end;.|
|00002110| 09 09 55 6e 6c 63 6b 50 | 69 78 28 67 47 52 41 46 |..UnlckP|ix(gGRAF|
|00002120| 2e 62 63 6b 67 72 6e 64 | 2e 74 68 65 70 6f 72 74 |.bckgrnd|.theport|
|00002130| 5e 2e 70 6f 72 74 50 69 | 78 4d 61 70 29 3b 0d 09 |^.portPi|xMap);..|
|00002140| 09 53 65 74 47 57 28 43 | 47 72 61 66 50 74 72 28 |.SetGW(C|GrafPtr(|
|00002150| 67 47 52 41 46 2e 43 75 | 72 50 6f 72 74 29 2c 20 |gGRAF.Cu|rPort), |
|00002160| 67 47 52 41 46 2e 43 75 | 72 44 65 76 29 3b 0d 09 |gGRAF.Cu|rDev);..|
|00002170| 09 43 6f 70 79 42 69 74 | 73 28 47 72 61 66 50 74 |.CopyBit|s(GrafPt|
|00002180| 72 28 67 47 52 41 46 2e | 62 63 6b 67 72 6e 64 2e |r(gGRAF.|bckgrnd.|
|00002190| 74 68 65 70 6f 72 74 29 | 5e 2e 70 6f 72 74 42 69 |theport)|^.portBi|
|000021a0| 74 73 2c 20 47 72 61 66 | 50 74 72 28 67 47 52 41 |ts, Graf|Ptr(gGRA|
|000021b0| 46 2e 64 69 72 74 79 77 | 6f 72 6b 2e 74 68 65 70 |F.dirtyw|ork.thep|
|000021c0| 6f 72 74 29 5e 2e 70 6f | 72 74 42 69 74 73 2c 20 |ort)^.po|rtBits, |
|000021d0| 67 47 52 41 46 2e 73 63 | 72 6e 72 65 63 74 2c 20 |gGRAF.sc|rnrect, |
|000021e0| 67 47 52 41 46 2e 73 63 | 72 6e 72 65 63 74 2c 20 |gGRAF.sc|rnrect, |
|000021f0| 73 72 63 43 6f 70 79 2c | 20 6e 69 6c 29 3b 0d 09 |srcCopy,| nil);..|
|00002200| 65 6e 64 3b 0d 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |end;....|function|
|00002210| 20 72 61 6e 64 6f 6d 69 | 7a 65 20 28 74 68 65 6e | randomi|ze (then|
|00002220| 75 6d 3a 20 69 6e 74 65 | 67 65 72 29 3a 20 69 6e |um: inte|ger): in|
|00002230| 74 65 67 65 72 3b 0d 09 | 09 76 61 72 0d 09 09 09 |teger;..|.var....|
|00002240| 61 61 61 61 61 61 61 61 | 61 61 2c 20 62 62 62 62 |aaaaaaaa|aa, bbbb|
|00002250| 62 62 62 62 62 62 3a 20 | 69 6e 74 65 67 65 72 3b |bbbbbb: |integer;|
|00002260| 0d 09 62 65 67 69 6e 0d | 09 09 72 61 6e 64 73 65 |..begin.|..randse|
|00002270| 65 64 20 3a 3d 20 74 69 | 63 6b 63 6f 75 6e 74 3b |ed := ti|ckcount;|
|00002280| 0d 09 09 74 68 65 6e 75 | 6d 20 3a 3d 20 74 68 65 |...thenu|m := the|
|00002290| 6e 75 6d 20 2b 20 31 3b | 0d 09 09 72 65 70 65 61 |num + 1;|...repea|
|000022a0| 74 0d 09 09 09 61 61 61 | 61 61 61 61 61 61 61 20 |t....aaa|aaaaaaa |
|000022b0| 3a 3d 20 72 61 6e 64 6f | 6d 3b 0d 09 09 09 62 62 |:= rando|m;....bb|
|000022c0| 62 62 62 62 62 62 62 62 | 20 3a 3d 20 33 32 37 36 |bbbbbbbb| := 3276|
|000022d0| 38 20 64 69 76 20 74 68 | 65 6e 75 6d 3b 0d 09 09 |8 div th|enum;...|
|000022e0| 09 61 61 61 61 61 61 61 | 61 61 61 20 3a 3d 20 61 |.aaaaaaa|aaa := a|
|000022f0| 61 61 61 61 61 61 61 61 | 61 20 64 69 76 20 62 62 |aaaaaaaa|a div bb|
|00002300| 62 62 62 62 62 62 62 62 | 3b 0d 09 09 09 72 61 6e |bbbbbbbb|;....ran|
|00002310| 64 6f 6d 69 7a 65 20 3a | 3d 20 61 62 73 28 61 61 |domize :|= abs(aa|
|00002320| 61 61 61 61 61 61 61 61 | 29 3b 0d 09 09 75 6e 74 |aaaaaaaa|);...unt|
|00002330| 69 6c 20 61 62 73 28 61 | 61 61 61 61 61 61 61 61 |il abs(a|aaaaaaaa|
|00002340| 61 29 20 3c 3e 20 30 3b | 0d 09 65 6e 64 3b 0d 0d |a) <> 0;|..end;..|
|00002350| 09 70 72 6f 63 65 64 75 | 72 65 20 73 65 74 73 6f |.procedu|re setso|
|00002360| 72 74 73 74 79 6c 65 20 | 28 74 68 65 6f 6e 65 3a |rtstyle |(theone:|
|00002370| 20 69 6e 74 65 67 65 72 | 29 3b 0d 09 62 65 67 69 | integer|);..begi|
|00002380| 6e 0d 09 09 67 47 52 41 | 46 2e 77 68 61 74 73 6f |n...gGRA|F.whatso|
|00002390| 72 74 73 74 79 6c 65 20 | 3a 3d 20 74 68 65 6f 6e |rtstyle |:= theon|
|000023a0| 65 3b 0d 09 65 6e 64 3b | 0d 0d 09 66 75 6e 63 74 |e;..end;|...funct|
|000023b0| 69 6f 6e 20 63 6f 6c 6c | 69 73 69 6f 6e 74 65 73 |ion coll|isiontes|
|000023c0| 74 20 28 76 61 72 20 74 | 68 65 6f 6e 65 3a 20 73 |t (var t|heone: s|
|000023d0| 70 72 69 74 65 3b 20 68 | 6d 6f 76 2c 20 76 6d 6f |prite; h|mov, vmo|
|000023e0| 76 3a 20 69 6e 74 65 67 | 65 72 29 3a 20 62 6f 6f |v: integ|er): boo|
|000023f0| 6c 65 61 6e 3b 0d 09 09 | 76 61 72 0d 09 09 09 61 |lean;...|var....a|
|00002400| 2c 20 62 2c 20 63 2c 20 | 64 3a 20 69 6e 74 65 67 |, b, c, |d: integ|
|00002410| 65 72 3b 0d 09 09 09 65 | 2c 20 66 2c 20 67 3a 20 |er;....e|, f, g: |
|00002420| 72 65 63 74 3b 0d 09 62 | 65 67 69 6e 0d 09 09 74 |rect;..b|egin...t|
|00002430| 68 65 6f 6e 65 2e 63 6f | 6c 6c 69 73 69 6f 6e 77 |heone.co|llisionw|
|00002440| 69 74 68 20 3a 3d 20 30 | 3b 0d 09 09 73 65 74 72 |ith := 0|;...setr|
|00002450| 65 63 74 28 65 2c 20 74 | 68 65 6f 6e 65 2e 63 6f |ect(e, t|heone.co|
|00002460| 6c 6c 69 73 69 6f 6e 70 | 6c 61 63 65 2e 6c 65 66 |llisionp|lace.lef|
|00002470| 74 20 2b 20 68 6d 6f 76 | 2c 20 74 68 65 6f 6e 65 |t + hmov|, theone|
|00002480| 2e 63 6f 6c 6c 69 73 69 | 6f 6e 70 6c 61 63 65 2e |.collisi|onplace.|
|00002490| 74 6f 70 20 2b 20 76 6d | 6f 76 2c 20 74 68 65 6f |top + vm|ov, theo|
|000024a0| 6e 65 2e 63 6f 6c 6c 69 | 73 69 6f 6e 70 6c 61 63 |ne.colli|sionplac|
|000024b0| 65 2e 72 69 67 68 74 20 | 2b 20 68 6d 6f 76 2c 20 |e.right |+ hmov, |
|000024c0| 74 68 65 6f 6e 65 2e 63 | 6f 6c 6c 69 73 69 6f 6e |theone.c|ollision|
|000024d0| 70 6c 61 63 65 2e 62 6f | 74 74 6f 6d 20 2b 20 76 |place.bo|ttom + v|
|000024e0| 6d 6f 76 29 3b 0d 09 09 | 61 20 3a 3d 20 67 47 52 |mov);...|a := gGR|
|000024f0| 41 46 2e 72 6f 6f 74 3b | 0d 09 09 77 68 69 6c 65 |AF.root;|...while|
|00002500| 20 61 20 3c 3e 20 30 20 | 64 6f 0d 09 09 09 62 65 | a <> 0 |do....be|
|00002510| 67 69 6e 0d 09 09 09 09 | 69 66 20 67 47 52 41 46 |gin.....|if gGRAF|
|00002520| 2e 64 69 66 66 6c 65 76 | 65 6c 20 3d 20 74 72 75 |.difflev|el = tru|
|00002530| 65 20 74 68 65 6e 0d 09 | 09 09 09 09 62 65 67 69 |e then..|....begi|
|00002540| 6e 0d 09 09 09 09 09 09 | 69 66 20 28 74 68 65 6f |n.......|if (theo|
|00002550| 6e 65 2e 77 68 61 74 73 | 63 72 6e 69 73 72 65 63 |ne.whats|crnisrec|
|00002560| 74 20 3d 20 74 68 65 73 | 70 72 69 74 65 5b 61 5d |t = thes|prite[a]|
|00002570| 2e 77 68 61 74 73 63 72 | 6e 69 73 72 65 63 74 29 |.whatscr|nisrect)|
|00002580| 20 61 6e 64 20 28 74 68 | 65 6f 6e 65 2e 6b 69 6e | and (th|eone.kin|
|00002590| 64 20 3c 3e 20 74 68 65 | 73 70 72 69 74 65 5b 61 |d <> the|sprite[a|
|000025a0| 5d 2e 6b 69 6e 64 29 20 | 61 6e 64 20 28 74 68 65 |].kind) |and (the|
|000025b0| 6f 6e 65 2e 70 6f 73 69 | 74 69 6f 6e 2e 76 20 3d |one.posi|tion.v =|
|000025c0| 20 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 70 6f | thespri|te[a].po|
|000025d0| 73 69 74 69 6f 6e 2e 76 | 29 20 61 6e 64 20 28 73 |sition.v|) and (s|
|000025e0| 65 63 74 72 65 63 74 28 | 65 2c 20 74 68 65 73 70 |ectrect(|e, thesp|
|000025f0| 72 69 74 65 5b 61 5d 2e | 63 6f 6c 6c 69 73 69 6f |rite[a].|collisio|
|00002600| 6e 70 6c 61 63 65 2c 20 | 66 29 29 20 74 68 65 6e |nplace, |f)) then|
|00002610| 0d 09 09 09 09 09 09 09 | 74 68 65 6f 6e 65 2e 63 |........|theone.c|
|00002620| 6f 6c 6c 69 73 69 6f 6e | 77 69 74 68 20 3a 3d 20 |ollision|with := |
|00002630| 61 3b 0d 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |a;......|end;....|
|00002640| 09 69 66 20 67 47 52 41 | 46 2e 64 69 66 66 6c 65 |.if gGRA|F.diffle|
|00002650| 76 65 6c 20 3d 20 66 61 | 6c 73 65 20 74 68 65 6e |vel = fa|lse then|
|00002660| 0d 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00002670| 09 09 69 66 20 28 74 68 | 65 6f 6e 65 2e 77 68 61 |..if (th|eone.wha|
|00002680| 74 73 63 72 6e 69 73 72 | 65 63 74 20 3d 20 74 68 |tscrnisr|ect = th|
|00002690| 65 73 70 72 69 74 65 5b | 61 5d 2e 77 68 61 74 73 |esprite[|a].whats|
|000026a0| 63 72 6e 69 73 72 65 63 | 74 29 20 61 6e 64 20 28 |crnisrec|t) and (|
|000026b0| 74 68 65 6f 6e 65 2e 6b | 69 6e 64 20 3c 3e 20 74 |theone.k|ind <> t|
|000026c0| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 6b 69 6e 64 |hesprite|[a].kind|
|000026d0| 29 20 61 6e 64 20 28 73 | 65 63 74 72 65 63 74 28 |) and (s|ectrect(|
|000026e0| 65 2c 20 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |e, thesp|rite[a].|
|000026f0| 63 6f 6c 6c 69 73 69 6f | 6e 70 6c 61 63 65 2c 20 |collisio|nplace, |
|00002700| 66 29 29 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 |f)) then|........|
|00002710| 74 68 65 6f 6e 65 2e 63 | 6f 6c 6c 69 73 69 6f 6e |theone.c|ollision|
|00002720| 77 69 74 68 20 3a 3d 20 | 61 3b 0d 09 09 09 09 09 |with := |a;......|
|00002730| 65 6e 64 3b 0d 09 09 09 | 09 61 20 3a 3d 20 74 68 |end;....|.a := th|
|00002740| 65 73 70 72 69 74 65 5b | 61 5d 2e 6e 65 78 74 3b |esprite[|a].next;|
|00002750| 0d 09 09 09 65 6e 64 3b | 0d 09 09 69 66 20 74 68 |....end;|...if th|
|00002760| 65 6f 6e 65 2e 63 6f 6c | 6c 69 73 69 6f 6e 77 69 |eone.col|lisionwi|
|00002770| 74 68 20 3c 3e 20 30 20 | 74 68 65 6e 0d 09 09 09 |th <> 0 |then....|
|00002780| 63 6f 6c 6c 69 73 69 6f | 6e 74 65 73 74 20 3a 3d |collisio|ntest :=|
|00002790| 20 74 72 75 65 3b 0d 09 | 09 69 66 20 74 68 65 6f | true;..|.if theo|
|000027a0| 6e 65 2e 63 6f 6c 6c 69 | 73 69 6f 6e 77 69 74 68 |ne.colli|sionwith|
|000027b0| 20 3d 20 30 20 74 68 65 | 6e 0d 09 09 09 63 6f 6c | = 0 the|n....col|
|000027c0| 6c 69 73 69 6f 6e 74 65 | 73 74 20 3a 3d 20 66 61 |lisionte|st := fa|
|000027d0| 6c 73 65 3b 0d 09 65 6e | 64 3b 0d 0d 09 70 72 6f |lse;..en|d;...pro|
|000027e0| 63 65 64 75 72 65 20 6b | 69 6c 6c 61 73 70 72 69 |cedure k|illaspri|
|000027f0| 74 65 20 28 76 61 72 20 | 77 68 61 74 6f 6e 65 3a |te (var |whatone:|
|00002800| 20 69 6e 74 65 67 65 72 | 29 3b 0d 09 09 76 61 72 | integer|);...var|
|00002810| 0d 09 09 09 61 2c 20 62 | 2c 20 63 2c 20 64 3a 20 |....a, b|, c, d: |
|00002820| 69 6e 74 65 67 65 72 3b | 0d 09 62 65 67 69 6e 0d |integer;|..begin.|
|00002830| 09 09 74 68 65 73 70 72 | 69 74 65 5b 77 68 61 74 |..thespr|ite[what|
|00002840| 6f 6e 65 5d 2e 6b 69 6c | 6c 73 70 72 69 74 65 66 |one].kil|lspritef|
|00002850| 6c 61 67 20 3a 3d 20 66 | 61 6c 73 65 3b 0d 09 09 |lag := f|alse;...|
|00002860| 61 20 3a 3d 20 67 47 52 | 41 46 2e 72 6f 6f 74 3b |a := gGR|AF.root;|
|00002870| 0d 09 09 69 66 20 77 68 | 61 74 6f 6e 65 20 3c 3e |...if wh|atone <>|
|00002880| 20 67 47 52 41 46 2e 72 | 6f 6f 74 20 74 68 65 6e | gGRAF.r|oot then|
|00002890| 0d 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 77 68 |....begi|n.....wh|
|000028a0| 69 6c 65 20 74 68 65 73 | 70 72 69 74 65 5b 61 5d |ile thes|prite[a]|
|000028b0| 2e 6e 65 78 74 20 3c 3e | 20 77 68 61 74 6f 6e 65 |.next <>| whatone|
|000028c0| 20 64 6f 0d 09 09 09 09 | 09 62 65 67 69 6e 0d 09 | do.....|.begin..|
|000028d0| 09 09 09 09 09 61 20 3a | 3d 20 74 68 65 73 70 72 |.....a :|= thespr|
|000028e0| 69 74 65 5b 61 5d 2e 6e | 65 78 74 3b 0d 09 09 09 |ite[a].n|ext;....|
|000028f0| 09 09 65 6e 64 3b 0d 09 | 09 09 09 62 20 3a 3d 20 |..end;..|...b := |
|00002900| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 6e 65 78 |thesprit|e[a].nex|
|00002910| 74 3b 0d 09 09 09 09 63 | 20 3a 3d 20 74 68 65 73 |t;.....c| := thes|
|00002920| 70 72 69 74 65 5b 62 5d | 2e 6e 65 78 74 3b 0d 09 |prite[b]|.next;..|
|00002930| 09 09 09 74 68 65 73 70 | 72 69 74 65 5b 62 5d 2e |...thesp|rite[b].|
|00002940| 69 73 74 68 65 72 65 20 | 3a 3d 20 30 3b 0d 09 09 |isthere |:= 0;...|
|00002950| 09 09 74 68 65 73 70 72 | 69 74 65 5b 61 5d 2e 6e |..thespr|ite[a].n|
|00002960| 65 78 74 20 3a 3d 20 63 | 3b 0d 09 09 09 09 74 68 |ext := c|;.....th|
|00002970| 65 73 70 72 69 74 65 5b | 62 5d 2e 6e 65 78 74 20 |esprite[|b].next |
|00002980| 3a 3d 20 30 3b 0d 09 09 | 09 65 6e 64 3b 0d 09 09 |:= 0;...|.end;...|
|00002990| 69 66 20 28 77 68 61 74 | 6f 6e 65 20 3d 20 67 47 |if (what|one = gG|
|000029a0| 52 41 46 2e 72 6f 6f 74 | 29 20 61 6e 64 20 28 74 |RAF.root|) and (t|
|000029b0| 68 65 73 70 72 69 74 65 | 5b 67 47 52 41 46 2e 72 |hesprite|[gGRAF.r|
|000029c0| 6f 6f 74 5d 2e 6e 65 78 | 74 20 3c 3e 20 30 29 20 |oot].nex|t <> 0) |
|000029d0| 74 68 65 6e 0d 09 09 09 | 62 65 67 69 6e 0d 09 09 |then....|begin...|
|000029e0| 09 09 62 20 3a 3d 20 74 | 68 65 73 70 72 69 74 65 |..b := t|hesprite|
|000029f0| 5b 61 5d 2e 6e 65 78 74 | 3b 0d 09 09 09 09 67 47 |[a].next|;.....gG|
|00002a00| 52 41 46 2e 72 6f 6f 74 | 20 3a 3d 20 62 3b 0d 09 |RAF.root| := b;..|
|00002a10| 09 09 09 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |...thesp|rite[a].|
|00002a20| 69 73 74 68 65 72 65 20 | 3a 3d 20 30 3b 0d 09 09 |isthere |:= 0;...|
|00002a30| 09 09 74 68 65 73 70 72 | 69 74 65 5b 61 5d 2e 6e |..thespr|ite[a].n|
|00002a40| 65 78 74 20 3a 3d 20 30 | 3b 0d 09 09 09 65 6e 64 |ext := 0|;....end|
|00002a50| 3b 0d 09 09 69 66 20 28 | 77 68 61 74 6f 6e 65 20 |;...if (|whatone |
|00002a60| 3d 20 67 47 52 41 46 2e | 72 6f 6f 74 29 20 61 6e |= gGRAF.|root) an|
|00002a70| 64 20 28 74 68 65 73 70 | 72 69 74 65 5b 67 47 52 |d (thesp|rite[gGR|
|00002a80| 41 46 2e 72 6f 6f 74 5d | 2e 6e 65 78 74 20 3d 20 |AF.root]|.next = |
|00002a90| 30 29 20 74 68 65 6e 0d | 09 09 09 62 65 67 69 6e |0) then.|...begin|
|00002aa0| 0d 09 09 09 09 67 47 52 | 41 46 2e 72 6f 6f 74 20 |.....gGR|AF.root |
|00002ab0| 3a 3d 20 30 3b 0d 09 09 | 09 09 74 68 65 73 70 72 |:= 0;...|..thespr|
|00002ac0| 69 74 65 5b 61 5d 2e 69 | 73 74 68 65 72 65 20 3a |ite[a].i|sthere :|
|00002ad0| 3d 20 30 3b 0d 09 09 09 | 09 74 68 65 73 70 72 69 |= 0;....|.thespri|
|00002ae0| 74 65 5b 61 5d 2e 6e 65 | 78 74 20 3a 3d 20 30 3b |te[a].ne|xt := 0;|
|00002af0| 0d 09 09 09 09 67 47 52 | 41 46 2e 61 72 65 6e 6f |.....gGR|AF.areno|
|00002b00| 6e 65 20 3a 3d 20 74 72 | 75 65 3b 0d 09 09 09 65 |ne := tr|ue;....e|
|00002b10| 6e 64 3b 0d 09 65 6e 64 | 3b 0d 0d 09 70 72 6f 63 |nd;..end|;...proc|
|00002b20| 65 64 75 72 65 20 6b 69 | 6c 6c 61 6c 6c 73 70 72 |edure ki|llallspr|
|00002b30| 69 74 65 73 3b 0d 09 62 | 65 67 69 6e 0d 09 09 77 |ites;..b|egin...w|
|00002b40| 68 69 6c 65 20 67 47 52 | 41 46 2e 72 6f 6f 74 20 |hile gGR|AF.root |
|00002b50| 3c 3e 20 30 20 64 6f 0d | 09 09 09 62 65 67 69 6e |<> 0 do.|...begin|
|00002b60| 0d 09 09 09 09 6b 69 6c | 6c 61 73 70 72 69 74 65 |.....kil|lasprite|
|00002b70| 28 67 47 52 41 46 2e 72 | 6f 6f 74 29 3b 0d 09 09 |(gGRAF.r|oot);...|
|00002b80| 09 65 6e 64 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |.end;..e|nd;...pr|
|00002b90| 6f 63 65 64 75 72 65 20 | 6b 69 6c 6c 73 70 72 69 |ocedure |killspri|
|00002ba0| 74 65 20 28 76 61 72 20 | 77 68 61 74 6f 6e 65 3a |te (var |whatone:|
|00002bb0| 20 73 70 72 69 74 65 29 | 3b 0d 09 62 65 67 69 6e | sprite)|;..begin|
|00002bc0| 0d 09 09 77 68 61 74 6f | 6e 65 2e 6b 69 6c 6c 73 |...whato|ne.kills|
|00002bd0| 70 72 69 74 65 66 6c 61 | 67 20 3a 3d 20 74 72 75 |pritefla|g := tru|
|00002be0| 65 3b 0d 09 65 6e 64 3b | 0d 0d 09 66 75 6e 63 74 |e;..end;|...funct|
|00002bf0| 69 6f 6e 20 70 75 74 69 | 6e 66 61 63 65 20 28 66 |ion puti|nface (f|
|00002c00| 69 72 73 74 3a 20 66 61 | 63 65 29 3a 20 66 61 63 |irst: fa|ce): fac|
|00002c10| 65 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 75 74 69 |e;..begi|n...puti|
|00002c20| 6e 66 61 63 65 2e 74 68 | 65 74 79 70 65 20 3a 3d |nface.th|etype :=|
|00002c30| 20 66 69 72 73 74 2e 74 | 68 65 74 79 70 65 3b 0d | first.t|hetype;.|
|00002c40| 09 09 70 75 74 69 6e 66 | 61 63 65 2e 74 68 65 70 |..putinf|ace.thep|
|00002c50| 69 63 74 20 3a 3d 20 66 | 69 72 73 74 2e 74 68 65 |ict := f|irst.the|
|00002c60| 70 69 63 74 3b 0d 09 09 | 70 75 74 69 6e 66 61 63 |pict;...|putinfac|
|00002c70| 65 2e 74 68 65 6d 61 73 | 6b 70 69 63 74 20 3a 3d |e.themas|kpict :=|
|00002c80| 20 66 69 72 73 74 2e 74 | 68 65 6d 61 73 6b 70 69 | first.t|hemaskpi|
|00002c90| 63 74 3b 0d 09 09 70 75 | 74 69 6e 66 61 63 65 2e |ct;...pu|tinface.|
|00002ca0| 74 68 65 63 69 63 6f 6e | 20 3a 3d 20 66 69 72 73 |thecicon| := firs|
|00002cb0| 74 2e 74 68 65 63 69 63 | 6f 6e 3b 0d 09 09 70 75 |t.thecic|on;...pu|
|00002cc0| 74 69 6e 66 61 63 65 2e | 72 65 73 6e 75 6d 20 3a |tinface.|resnum :|
|00002cd0| 3d 20 66 69 72 73 74 2e | 72 65 73 6e 75 6d 3b 0d |= first.|resnum;.|
|00002ce0| 09 09 70 75 74 69 6e 66 | 61 63 65 2e 70 69 63 74 |..putinf|ace.pict|
|00002cf0| 72 65 73 6e 75 6d 20 3a | 3d 20 66 69 72 73 74 2e |resnum :|= first.|
|00002d00| 70 69 63 74 72 65 73 6e | 75 6d 3b 0d 09 09 70 75 |pictresn|um;...pu|
|00002d10| 74 69 6e 66 61 63 65 2e | 6d 61 73 6b 72 65 73 6e |tinface.|maskresn|
|00002d20| 75 6d 20 3a 3d 20 66 69 | 72 73 74 2e 6d 61 73 6b |um := fi|rst.mask|
|00002d30| 72 65 73 6e 75 6d 3b 0d | 09 09 70 75 74 69 6e 66 |resnum;.|..putinf|
|00002d40| 61 63 65 2e 6f 6c 64 72 | 65 73 6e 75 6d 20 3a 3d |ace.oldr|esnum :=|
|00002d50| 20 66 69 72 73 74 2e 6f | 6c 64 72 65 73 6e 75 6d | first.o|ldresnum|
|00002d60| 3b 0d 09 09 73 65 74 72 | 65 63 74 28 70 75 74 69 |;...setr|ect(puti|
|00002d70| 6e 66 61 63 65 2e 73 6f | 75 72 63 65 72 65 63 74 |nface.so|urcerect|
|00002d80| 2c 20 66 69 72 73 74 2e | 73 6f 75 72 63 65 72 65 |, first.|sourcere|
|00002d90| 63 74 2e 6c 65 66 74 2c | 20 66 69 72 73 74 2e 73 |ct.left,| first.s|
|00002da0| 6f 75 72 63 65 72 65 63 | 74 2e 74 6f 70 2c 20 66 |ourcerec|t.top, f|
|00002db0| 69 72 73 74 2e 73 6f 75 | 72 63 65 72 65 63 74 2e |irst.sou|rcerect.|
|00002dc0| 72 69 67 68 74 2c 20 66 | 69 72 73 74 2e 73 6f 75 |right, f|irst.sou|
|00002dd0| 72 63 65 72 65 63 74 2e | 62 6f 74 74 6f 6d 29 3b |rcerect.|bottom);|
|00002de0| 0d 09 09 73 65 74 72 65 | 63 74 28 70 75 74 69 6e |...setre|ct(putin|
|00002df0| 66 61 63 65 2e 73 69 7a | 65 72 65 63 74 2c 20 66 |face.siz|erect, f|
|00002e00| 69 72 73 74 2e 73 69 7a | 65 72 65 63 74 2e 6c 65 |irst.siz|erect.le|
|00002e10| 66 74 2c 20 66 69 72 73 | 74 2e 73 69 7a 65 72 65 |ft, firs|t.sizere|
|00002e20| 63 74 2e 74 6f 70 2c 20 | 66 69 72 73 74 2e 73 69 |ct.top, |first.si|
|00002e30| 7a 65 72 65 63 74 2e 72 | 69 67 68 74 2c 20 66 69 |zerect.r|ight, fi|
|00002e40| 72 73 74 2e 73 69 7a 65 | 72 65 63 74 2e 62 6f 74 |rst.size|rect.bot|
|00002e50| 74 6f 6d 29 3b 0d 09 09 | 73 65 74 72 65 63 74 28 |tom);...|setrect(|
|00002e60| 70 75 74 69 6e 66 61 63 | 65 2e 63 6f 6c 6c 69 73 |putinfac|e.collis|
|00002e70| 69 6f 6e 73 69 7a 65 2c | 20 66 69 72 73 74 2e 63 |ionsize,| first.c|
|00002e80| 6f 6c 6c 69 73 69 6f 6e | 73 69 7a 65 2e 6c 65 66 |ollision|size.lef|
|00002e90| 74 2c 20 66 69 72 73 74 | 2e 63 6f 6c 6c 69 73 69 |t, first|.collisi|
|00002ea0| 6f 6e 73 69 7a 65 2e 74 | 6f 70 2c 20 66 69 72 73 |onsize.t|op, firs|
|00002eb0| 74 2e 63 6f 6c 6c 69 73 | 69 6f 6e 73 69 7a 65 2e |t.collis|ionsize.|
|00002ec0| 72 69 67 68 74 2c 20 66 | 69 72 73 74 2e 63 6f 6c |right, f|irst.col|
|00002ed0| 6c 69 73 69 6f 6e 73 69 | 7a 65 2e 62 6f 74 74 6f |lisionsi|ze.botto|
|00002ee0| 6d 29 3b 0d 09 65 6e 64 | 3b 0d 0d 09 70 72 6f 63 |m);..end|;...proc|
|00002ef0| 65 64 75 72 65 20 75 70 | 64 61 74 65 74 68 65 73 |edure up|datethes|
|00002f00| 63 72 65 65 6e 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |creen;..|begin...|
|00002f10| 43 6f 70 79 42 69 74 73 | 28 47 72 61 66 50 74 72 |CopyBits|(GrafPtr|
|00002f20| 28 67 47 52 41 46 2e 62 | 63 6b 67 72 6e 64 2e 74 |(gGRAF.b|ckgrnd.t|
|00002f30| 68 65 70 6f 72 74 29 5e | 2e 70 6f 72 74 42 69 74 |heport)^|.portBit|
|00002f40| 73 2c 20 47 72 61 66 50 | 74 72 28 67 47 52 41 46 |s, GrafP|tr(gGRAF|
|00002f50| 2e 43 75 72 50 6f 72 74 | 29 5e 2e 70 6f 72 74 42 |.CurPort|)^.portB|
|00002f60| 69 74 73 2c 20 67 47 52 | 41 46 2e 73 63 72 6e 72 |its, gGR|AF.scrnr|
|00002f70| 65 63 74 2c 20 67 47 52 | 41 46 2e 73 63 72 6e 72 |ect, gGR|AF.scrnr|
|00002f80| 65 63 74 2c 20 73 72 63 | 43 6f 70 79 2c 20 6e 69 |ect, src|Copy, ni|
|00002f90| 6c 29 3b 0d 09 65 6e 64 | 3b 0d 0d 09 70 72 6f 63 |l);..end|;...proc|
|00002fa0| 65 64 75 72 65 20 75 70 | 64 61 74 65 77 68 6f 6c |edure up|datewhol|
|00002fb0| 65 73 63 72 6e 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |escrn;..|begin...|
|00002fc0| 43 6f 70 79 42 69 74 73 | 28 47 72 61 66 50 74 72 |CopyBits|(GrafPtr|
|00002fd0| 28 67 47 52 41 46 2e 64 | 69 72 74 79 77 6f 72 6b |(gGRAF.d|irtywork|
|00002fe0| 2e 74 68 65 70 6f 72 74 | 29 5e 2e 70 6f 72 74 42 |.theport|)^.portB|
|00002ff0| 69 74 73 2c 20 47 72 61 | 66 50 74 72 28 67 47 52 |its, Gra|fPtr(gGR|
|00003000| 41 46 2e 43 75 72 50 6f | 72 74 29 5e 2e 70 6f 72 |AF.CurPo|rt)^.por|
|00003010| 74 42 69 74 73 2c 20 67 | 47 52 41 46 2e 73 63 72 |tBits, g|GRAF.scr|
|00003020| 6e 72 65 63 74 2c 20 67 | 47 52 41 46 2e 73 63 72 |nrect, g|GRAF.scr|
|00003030| 6e 72 65 63 74 2c 20 73 | 72 63 43 6f 70 79 2c 20 |nrect, s|rcCopy, |
|00003040| 6e 69 6c 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |nil);..e|nd;...pr|
|00003050| 6f 63 65 64 75 72 65 20 | 53 6b 69 70 47 52 41 46 |ocedure |SkipGRAF|
|00003060| 3b 0d 09 09 76 61 72 0d | 09 09 09 74 65 6d 70 32 |;...var.|...temp2|
|00003070| 3a 20 73 70 72 69 74 65 | 3b 0d 09 09 09 74 65 6d |: sprite|;....tem|
|00003080| 70 2c 20 64 2c 20 65 3a | 20 72 65 63 74 3b 0d 09 |p, d, e:| rect;..|
|00003090| 09 09 74 65 6d 70 33 3a | 20 50 72 6f 63 50 74 72 |..temp3:| ProcPtr|
|000030a0| 3b 0d 09 09 09 61 2c 20 | 62 2c 20 63 2c 20 66 2c |;....a, |b, c, f,|
|000030b0| 20 67 2c 20 68 3a 20 49 | 6e 74 65 67 65 72 3b 0d | g, h: I|nteger;.|
|000030c0| 09 62 65 67 69 6e 7b 31 | 7d 0d 09 09 69 66 20 67 |.begin{1|}...if g|
|000030d0| 47 52 41 46 2e 61 72 65 | 6e 6f 6e 65 20 3d 20 66 |GRAF.are|none = f|
|000030e0| 61 6c 73 65 20 74 68 65 | 6e 0d 09 09 09 62 65 67 |alse the|n....beg|
|000030f0| 69 6e 7b 32 7d 0d 7b 64 | 6f 20 72 65 67 75 6c 61 |in{2}.{d|o regula|
|00003100| 72 20 74 61 73 6b 73 7d | 0d 09 09 09 09 61 20 3a |r tasks}|.....a :|
|00003110| 3d 20 67 47 52 41 46 2e | 72 6f 6f 74 3b 0d 09 09 |= gGRAF.|root;...|
|00003120| 09 09 77 68 69 6c 65 20 | 61 20 3c 3e 20 30 20 64 |..while |a <> 0 d|
|00003130| 6f 0d 09 09 09 09 09 62 | 65 67 69 6e 7b 33 7d 0d |o......b|egin{3}.|
|00003140| 09 09 09 09 09 09 69 66 | 20 74 68 65 73 70 72 69 |......if| thespri|
|00003150| 74 65 5b 61 5d 2e 74 61 | 73 6b 20 3c 3e 20 6e 69 |te[a].ta|sk <> ni|
|00003160| 6c 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 63 61 |l then..|......ca|
|00003170| 6c 6c 54 61 73 6b 28 74 | 68 65 73 70 72 69 74 65 |llTask(t|hesprite|
|00003180| 5b 61 5d 2c 20 74 68 65 | 73 70 72 69 74 65 5b 61 |[a], the|sprite[a|
|00003190| 5d 2e 74 61 73 6b 29 3b | 0d 09 09 09 09 09 09 61 |].task);|.......a|
|000031a0| 20 3a 3d 20 74 68 65 73 | 70 72 69 74 65 5b 61 5d | := thes|prite[a]|
|000031b0| 2e 6e 65 78 74 3b 0d 09 | 09 09 09 09 65 6e 64 3b |.next;..|....end;|
|000031c0| 7b 33 7d 0d 7b 64 6f 20 | 63 6f 6c 6c 69 73 69 6f |{3}.{do |collisio|
|000031d0| 6e 74 61 73 6b 73 7d 0d | 09 09 09 09 61 20 3a 3d |ntasks}.|....a :=|
|000031e0| 20 67 47 52 41 46 2e 72 | 6f 6f 74 3b 0d 09 09 09 | gGRAF.r|oot;....|
|000031f0| 09 77 68 69 6c 65 20 61 | 20 3c 3e 20 30 20 64 6f |.while a| <> 0 do|
|00003200| 0d 09 09 09 09 09 62 65 | 67 69 6e 7b 33 7d 0d 09 |......be|gin{3}..|
|00003210| 09 09 09 09 09 73 65 74 | 72 65 63 74 28 74 68 65 |.....set|rect(the|
|00003220| 73 70 72 69 74 65 5b 61 | 5d 2e 6e 65 77 70 6c 61 |sprite[a|].newpla|
|00003230| 63 65 2c 20 74 68 65 73 | 70 72 69 74 65 5b 61 5d |ce, thes|prite[a]|
|00003240| 2e 70 6f 73 69 74 69 6f | 6e 2e 68 2c 20 74 68 65 |.positio|n.h, the|
|00003250| 73 70 72 69 74 65 5b 61 | 5d 2e 70 6f 73 69 74 69 |sprite[a|].positi|
|00003260| 6f 6e 2e 76 2c 20 74 68 | 65 73 70 72 69 74 65 5b |on.v, th|esprite[|
|00003270| 61 5d 2e 70 6f 73 69 74 | 69 6f 6e 2e 68 20 2b 20 |a].posit|ion.h + |
|00003280| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 74 68 65 |thesprit|e[a].the|
|00003290| 66 61 63 65 2e 73 69 7a | 65 72 65 63 74 2e 72 69 |face.siz|erect.ri|
|000032a0| 67 68 74 2c 20 74 68 65 | 73 70 72 69 74 65 5b 61 |ght, the|sprite[a|
|000032b0| 5d 2e 70 6f 73 69 74 69 | 6f 6e 2e 76 20 2b 20 74 |].positi|on.v + t|
|000032c0| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 74 68 65 66 |hesprite|[a].thef|
|000032d0| 61 63 65 2e 73 69 7a 65 | 72 65 63 74 2e 62 6f 74 |ace.size|rect.bot|
|000032e0| 74 6f 6d 29 3b 0d 09 09 | 09 09 09 09 73 65 74 72 |tom);...|....setr|
|000032f0| 65 63 74 28 74 68 65 73 | 70 72 69 74 65 5b 61 5d |ect(thes|prite[a]|
|00003300| 2e 63 6f 6c 6c 69 73 69 | 6f 6e 70 6c 61 63 65 2c |.collisi|onplace,|
|00003310| 20 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 6e 65 | thespri|te[a].ne|
|00003320| 77 70 6c 61 63 65 2e 6c | 65 66 74 20 2b 20 74 68 |wplace.l|eft + th|
|00003330| 65 73 70 72 69 74 65 5b | 61 5d 2e 74 68 65 66 61 |esprite[|a].thefa|
|00003340| 63 65 2e 63 6f 6c 6c 69 | 73 69 6f 6e 73 69 7a 65 |ce.colli|sionsize|
|00003350| 2e 6c 65 66 74 2c 20 74 | 68 65 73 70 72 69 74 65 |.left, t|hesprite|
|00003360| 5b 61 5d 2e 6e 65 77 70 | 6c 61 63 65 2e 74 6f 70 |[a].newp|lace.top|
|00003370| 20 2b 20 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e | + thesp|rite[a].|
|00003380| 74 68 65 66 61 63 65 2e | 63 6f 6c 6c 69 73 69 6f |theface.|collisio|
|00003390| 6e 73 69 7a 65 2e 74 6f | 70 2c 20 74 68 65 73 70 |nsize.to|p, thesp|
|000033a0| 72 69 74 65 5b 61 5d 2e | 6e 65 77 70 6c 61 63 65 |rite[a].|newplace|
|000033b0| 2e 72 69 67 68 74 20 2d | 20 28 74 68 65 73 70 72 |.right -| (thespr|
|000033c0| 69 74 65 5b 61 5d 2e 74 | 68 65 66 61 63 65 2e 73 |ite[a].t|heface.s|
|000033d0| 69 7a 65 72 65 63 74 2e | 72 69 67 68 74 20 2d 20 |izerect.|right - |
|000033e0| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 74 68 65 |thesprit|e[a].the|
|000033f0| 66 61 63 65 2e 63 6f 6c | 6c 69 73 69 6f 6e 73 69 |face.col|lisionsi|
|00003400| 7a 65 2e 72 69 67 68 74 | 29 2c 20 74 68 65 73 70 |ze.right|), thesp|
|00003410| 72 69 74 65 5b 61 5d 2e | 6e 65 77 70 6c 61 63 65 |rite[a].|newplace|
|00003420| 2e 62 6f 74 74 6f 6d 20 | 2d 20 28 74 68 65 73 70 |.bottom |- (thesp|
|00003430| 72 69 74 65 5b 61 5d 2e | 74 68 65 66 61 63 65 2e |rite[a].|theface.|
|00003440| 73 69 7a 65 72 65 63 74 | 2e 62 6f 74 74 6f 6d 20 |sizerect|.bottom |
|00003450| 2d 20 74 68 65 73 70 72 | 69 74 65 5b 61 5d 2e 74 |- thespr|ite[a].t|
|00003460| 68 65 66 61 63 65 2e 63 | 6f 6c 6c 69 73 69 6f 6e |heface.c|ollision|
|00003470| 73 69 7a 65 2e 62 6f 74 | 74 6f 6d 29 29 3b 0d 09 |size.bot|tom));..|
|00003480| 09 09 09 09 09 61 20 3a | 3d 20 74 68 65 73 70 72 |.....a :|= thespr|
|00003490| 69 74 65 5b 61 5d 2e 6e | 65 78 74 3b 0d 09 09 09 |ite[a].n|ext;....|
|000034a0| 09 09 65 6e 64 3b 7b 33 | 7d 0d 09 09 09 09 61 20 |..end;{3|}.....a |
|000034b0| 3a 3d 20 67 47 52 41 46 | 2e 72 6f 6f 74 3b 0d 09 |:= gGRAF|.root;..|
|000034c0| 09 09 09 77 68 69 6c 65 | 20 61 20 3c 3e 20 30 20 |...while| a <> 0 |
|000034d0| 64 6f 0d 09 09 09 09 09 | 62 65 67 69 6e 7b 33 7d |do......|begin{3}|
|000034e0| 0d 09 09 09 09 09 09 69 | 66 20 28 67 47 52 41 46 |.......i|f (gGRAF|
|000034f0| 2e 77 68 61 74 73 63 72 | 6e 20 3d 20 74 68 65 73 |.whatscr|n = thes|
|00003500| 70 72 69 74 65 5b 61 5d | 2e 77 68 61 74 73 63 72 |prite[a]|.whatscr|
|00003510| 6e 69 73 72 65 63 74 29 | 20 61 6e 64 20 28 74 68 |nisrect)| and (th|
|00003520| 65 73 70 72 69 74 65 5b | 61 5d 2e 69 73 64 6f 6e |esprite[|a].isdon|
|00003530| 65 20 3d 20 66 61 6c 73 | 65 29 20 61 6e 64 20 28 |e = fals|e) and (|
|00003540| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 6b 69 6c |thesprit|e[a].kil|
|00003550| 6c 73 70 72 69 74 65 66 | 6c 61 67 20 3d 20 66 61 |lspritef|lag = fa|
|00003560| 6c 73 65 29 20 74 68 65 | 6e 0d 09 09 09 09 09 09 |lse) the|n.......|
|00003570| 09 62 65 67 69 6e 7b 34 | 7d 0d 09 09 09 09 09 09 |.begin{4|}.......|
|00003580| 09 09 62 20 3a 3d 20 67 | 47 52 41 46 2e 72 6f 6f |..b := g|GRAF.roo|
|00003590| 74 3b 0d 09 09 09 09 09 | 09 09 09 77 68 69 6c 65 |t;......|...while|
|000035a0| 20 28 62 20 3c 3e 20 30 | 29 20 64 6f 0d 09 09 09 | (b <> 0|) do....|
|000035b0| 09 09 09 09 09 09 62 65 | 67 69 6e 7b 35 7d 0d 09 |......be|gin{5}..|
|000035c0| 09 09 09 09 09 09 09 09 | 09 69 66 20 28 67 47 52 |........|.if (gGR|
|000035d0| 41 46 2e 64 69 66 66 6c | 65 76 65 6c 20 3d 20 74 |AF.diffl|evel = t|
|000035e0| 72 75 65 29 20 61 6e 64 | 20 28 74 68 65 73 70 72 |rue) and| (thespr|
|000035f0| 69 74 65 5b 62 5d 2e 69 | 73 64 6f 6e 65 20 3d 20 |ite[b].i|sdone = |
|00003600| 66 61 6c 73 65 29 20 74 | 68 65 6e 0d 09 09 09 09 |false) t|hen.....|
|00003610| 09 09 09 09 09 09 09 62 | 65 67 69 6e 7b 36 7d 0d |.......b|egin{6}.|
|00003620| 09 09 09 09 09 09 09 09 | 09 09 09 09 69 66 20 28 |........|....if (|
|00003630| 62 20 3c 3e 20 61 29 20 | 61 6e 64 20 28 74 68 65 |b <> a) |and (the|
|00003640| 73 70 72 69 74 65 5b 61 | 5d 2e 6b 69 6c 6c 73 70 |sprite[a|].killsp|
|00003650| 72 69 74 65 66 6c 61 67 | 20 3d 20 66 61 6c 73 65 |riteflag| = false|
|00003660| 29 20 61 6e 64 20 28 73 | 65 63 74 72 65 63 74 28 |) and (s|ectrect(|
|00003670| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 63 6f 6c |thesprit|e[a].col|
|00003680| 6c 69 73 69 6f 6e 70 6c | 61 63 65 2c 20 74 68 65 |lisionpl|ace, the|
|00003690| 73 70 72 69 74 65 5b 62 | 5d 2e 63 6f 6c 6c 69 73 |sprite[b|].collis|
|000036a0| 69 6f 6e 70 6c 61 63 65 | 2c 20 64 29 29 20 61 6e |ionplace|, d)) an|
|000036b0| 64 20 28 67 47 52 41 46 | 2e 77 68 61 74 73 63 72 |d (gGRAF|.whatscr|
|000036c0| 6e 20 3d 20 74 68 65 73 | 70 72 69 74 65 5b 62 5d |n = thes|prite[b]|
|000036d0| 2e 77 68 61 74 73 63 72 | 6e 69 73 72 65 63 74 29 |.whatscr|nisrect)|
|000036e0| 20 61 6e 64 20 28 74 68 | 65 73 70 72 69 74 65 5b | and (th|esprite[|
|000036f0| 61 5d 2e 6b 69 6e 64 20 | 3c 3e 20 74 68 65 73 70 |a].kind |<> thesp|
|00003700| 72 69 74 65 5b 62 5d 2e | 6b 69 6e 64 29 20 61 6e |rite[b].|kind) an|
|00003710| 64 20 28 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |d (thesp|rite[a].|
|00003720| 70 6f 73 69 74 69 6f 6e | 2e 76 20 3d 20 74 68 65 |position|.v = the|
|00003730| 73 70 72 69 74 65 5b 62 | 5d 2e 70 6f 73 69 74 69 |sprite[b|].positi|
|00003740| 6f 6e 2e 76 29 20 74 68 | 65 6e 0d 09 09 09 09 09 |on.v) th|en......|
|00003750| 09 09 09 09 09 09 09 09 | 62 65 67 69 6e 7b 37 7d |........|begin{7}|
|00003760| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 74 |........|.......t|
|00003770| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 69 73 64 6f |hesprite|[a].isdo|
|00003780| 6e 65 20 3a 3d 20 74 72 | 75 65 3b 0d 09 09 09 09 |ne := tr|ue;.....|
|00003790| 09 09 09 09 09 09 09 09 | 09 09 74 68 65 73 70 72 |........|..thespr|
|000037a0| 69 74 65 5b 62 5d 2e 69 | 73 64 6f 6e 65 20 3a 3d |ite[b].i|sdone :=|
|000037b0| 20 74 72 75 65 3b 0d 09 | 09 09 09 09 09 09 09 09 | true;..|........|
|000037c0| 09 09 09 09 09 69 66 20 | 74 68 65 73 70 72 69 74 |.....if |thesprit|
|000037d0| 65 5b 61 5d 2e 68 69 74 | 54 61 73 6b 20 3c 3e 20 |e[a].hit|Task <> |
|000037e0| 6e 69 6c 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 |nil then|........|
|000037f0| 09 09 09 09 09 09 09 09 | 63 61 6c 6c 48 69 74 54 |........|callHitT|
|00003800| 61 73 6b 28 74 68 65 73 | 70 72 69 74 65 5b 61 5d |ask(thes|prite[a]|
|00003810| 2c 20 74 68 65 73 70 72 | 69 74 65 5b 62 5d 2c 20 |, thespr|ite[b], |
|00003820| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 68 69 74 |thesprit|e[a].hit|
|00003830| 54 61 73 6b 29 3b 0d 09 | 09 09 09 09 09 09 09 09 |Task);..|........|
|00003840| 09 09 09 09 09 69 66 20 | 28 67 47 52 41 46 2e 77 |.....if |(gGRAF.w|
|00003850| 68 61 74 63 6f 6c 6c 69 | 73 69 6f 6e 73 74 79 6c |hatcolli|sionstyl|
|00003860| 65 20 3d 20 31 29 20 61 | 6e 64 20 28 74 68 65 73 |e = 1) a|nd (thes|
|00003870| 70 72 69 74 65 5b 62 5d | 2e 68 69 74 54 61 73 6b |prite[b]|.hitTask|
|00003880| 20 3c 3e 20 6e 69 6c 29 | 20 74 68 65 6e 0d 09 09 | <> nil)| then...|
|00003890| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 63 61 6c |........|.....cal|
|000038a0| 6c 48 69 74 54 61 73 6b | 28 74 68 65 73 70 72 69 |lHitTask|(thespri|
|000038b0| 74 65 5b 62 5d 2c 20 74 | 68 65 73 70 72 69 74 65 |te[b], t|hesprite|
|000038c0| 5b 61 5d 2c 20 74 68 65 | 73 70 72 69 74 65 5b 62 |[a], the|sprite[b|
|000038d0| 5d 2e 68 69 74 54 61 73 | 6b 29 3b 0d 09 09 09 09 |].hitTas|k);.....|
|000038e0| 09 09 09 09 09 09 09 09 | 09 65 6e 64 3b 7b 37 7d |........|.end;{7}|
|000038f0| 0d 09 09 09 09 09 09 09 | 09 09 09 09 65 6e 64 3b |........|....end;|
|00003900| 7b 36 7d 0d 09 09 09 09 | 09 09 09 09 09 09 69 66 |{6}.....|......if|
|00003910| 20 28 67 47 52 41 46 2e | 64 69 66 66 6c 65 76 65 | (gGRAF.|diffleve|
|00003920| 6c 20 3d 20 66 61 6c 73 | 65 29 20 61 6e 64 20 28 |l = fals|e) and (|
|00003930| 74 68 65 73 70 72 69 74 | 65 5b 62 5d 2e 69 73 64 |thesprit|e[b].isd|
|00003940| 6f 6e 65 20 3d 20 66 61 | 6c 73 65 29 20 74 68 65 |one = fa|lse) the|
|00003950| 6e 0d 09 09 09 09 09 09 | 09 09 09 09 09 62 65 67 |n.......|.....beg|
|00003960| 69 6e 7b 36 7d 0d 09 09 | 09 09 09 09 09 09 09 09 |in{6}...|........|
|00003970| 09 09 69 66 20 28 62 20 | 3c 3e 20 61 29 20 61 6e |..if (b |<> a) an|
|00003980| 64 20 28 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |d (thesp|rite[a].|
|00003990| 6b 69 6c 6c 73 70 72 69 | 74 65 66 6c 61 67 20 3d |killspri|teflag =|
|000039a0| 20 66 61 6c 73 65 29 20 | 61 6e 64 20 28 73 65 63 | false) |and (sec|
|000039b0| 74 72 65 63 74 28 74 68 | 65 73 70 72 69 74 65 5b |trect(th|esprite[|
|000039c0| 61 5d 2e 63 6f 6c 6c 69 | 73 69 6f 6e 70 6c 61 63 |a].colli|sionplac|
|000039d0| 65 2c 20 74 68 65 73 70 | 72 69 74 65 5b 62 5d 2e |e, thesp|rite[b].|
|000039e0| 63 6f 6c 6c 69 73 69 6f | 6e 70 6c 61 63 65 2c 20 |collisio|nplace, |
|000039f0| 64 29 29 20 61 6e 64 20 | 28 67 47 52 41 46 2e 77 |d)) and |(gGRAF.w|
|00003a00| 68 61 74 73 63 72 6e 20 | 3d 20 74 68 65 73 70 72 |hatscrn |= thespr|
|00003a10| 69 74 65 5b 62 5d 2e 77 | 68 61 74 73 63 72 6e 69 |ite[b].w|hatscrni|
|00003a20| 73 72 65 63 74 29 20 61 | 6e 64 20 28 74 68 65 73 |srect) a|nd (thes|
|00003a30| 70 72 69 74 65 5b 61 5d | 2e 6b 69 6e 64 20 3c 3e |prite[a]|.kind <>|
|00003a40| 20 74 68 65 73 70 72 69 | 74 65 5b 62 5d 2e 6b 69 | thespri|te[b].ki|
|00003a50| 6e 64 29 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 |nd) then|........|
|00003a60| 09 09 09 09 09 09 62 65 | 67 69 6e 7b 37 7d 0d 09 |......be|gin{7}..|
|00003a70| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 69 66 20 |........|.....if |
|00003a80| 67 47 52 41 46 2e 77 68 | 61 74 63 6f 6c 6c 69 73 |gGRAF.wh|atcollis|
|00003a90| 69 6f 6e 73 74 79 6c 65 | 20 3d 20 32 20 74 68 65 |ionstyle| = 2 the|
|00003aa0| 6e 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |n.......|........|
|00003ab0| 09 62 65 67 69 6e 7b 38 | 7d 0d 09 09 09 09 09 09 |.begin{8|}.......|
|00003ac0| 09 09 09 09 09 09 09 09 | 09 09 74 68 65 73 70 72 |........|..thespr|
|00003ad0| 69 74 65 5b 61 5d 2e 69 | 73 64 6f 6e 65 20 3a 3d |ite[a].i|sdone :=|
|00003ae0| 20 74 72 75 65 3b 0d 09 | 09 09 09 09 09 09 09 09 | true;..|........|
|00003af0| 09 09 09 09 09 09 09 74 | 68 65 73 70 72 69 74 65 |.......t|hesprite|
|00003b00| 5b 62 5d 2e 69 73 64 6f | 6e 65 20 3a 3d 20 74 72 |[b].isdo|ne := tr|
|00003b10| 75 65 3b 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |ue;.....|........|
|00003b20| 09 09 09 09 69 66 20 74 | 68 65 73 70 72 69 74 65 |....if t|hesprite|
|00003b30| 5b 61 5d 2e 68 69 74 54 | 61 73 6b 20 3c 3e 20 6e |[a].hitT|ask <> n|
|00003b40| 69 6c 20 74 68 65 6e 0d | 09 09 09 09 09 09 09 09 |il then.|........|
|00003b50| 09 09 09 09 09 09 09 09 | 09 63 61 6c 6c 48 69 74 |........|.callHit|
|00003b60| 54 61 73 6b 28 74 68 65 | 73 70 72 69 74 65 5b 61 |Task(the|sprite[a|
|00003b70| 5d 2c 20 74 68 65 73 70 | 72 69 74 65 5b 62 5d 2c |], thesp|rite[b],|
|00003b80| 20 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 68 69 | thespri|te[a].hi|
|00003b90| 74 54 61 73 6b 29 3b 0d | 09 09 09 09 09 09 09 09 |tTask);.|........|
|00003ba0| 09 09 09 09 09 09 09 09 | 69 66 20 28 67 47 52 41 |........|if (gGRA|
|00003bb0| 46 2e 77 68 61 74 63 6f | 6c 6c 69 73 69 6f 6e 73 |F.whatco|llisions|
|00003bc0| 74 79 6c 65 20 3d 20 31 | 29 20 61 6e 64 20 28 74 |tyle = 1|) and (t|
|00003bd0| 68 65 73 70 72 69 74 65 | 5b 62 5d 2e 68 69 74 54 |hesprite|[b].hitT|
|00003be0| 61 73 6b 20 3c 3e 20 6e | 69 6c 29 20 74 68 65 6e |ask <> n|il) then|
|00003bf0| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00003c00| 09 09 63 61 6c 6c 48 69 | 74 54 61 73 6b 28 74 68 |..callHi|tTask(th|
|00003c10| 65 73 70 72 69 74 65 5b | 62 5d 2c 20 74 68 65 73 |esprite[|b], thes|
|00003c20| 70 72 69 74 65 5b 61 5d | 2c 20 74 68 65 73 70 72 |prite[a]|, thespr|
|00003c30| 69 74 65 5b 62 5d 2e 68 | 69 74 54 61 73 6b 29 3b |ite[b].h|itTask);|
|00003c40| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00003c50| 65 6e 64 3b 7b 38 7d 0d | 09 09 09 09 09 09 09 09 |end;{8}.|........|
|00003c60| 09 09 09 09 09 65 6e 64 | 3b 7b 37 7d 0d 09 09 09 |.....end|;{7}....|
|00003c70| 09 09 09 09 09 09 09 09 | 65 6e 64 3b 7b 36 7d 0d |........|end;{6}.|
|00003c80| 09 09 09 09 09 09 09 09 | 09 09 62 20 3a 3d 20 74 |........|..b := t|
|00003c90| 68 65 73 70 72 69 74 65 | 5b 62 5d 2e 6e 65 78 74 |hesprite|[b].next|
|00003ca0| 3b 0d 09 09 09 09 09 09 | 09 09 09 65 6e 64 3b 7b |;.......|...end;{|
|00003cb0| 35 7d 0d 09 09 09 09 09 | 09 09 65 6e 64 3b 7b 34 |5}......|..end;{4|
|00003cc0| 7d 0d 09 09 09 09 09 09 | 61 20 3a 3d 20 74 68 65 |}.......|a := the|
|00003cd0| 73 70 72 69 74 65 5b 61 | 5d 2e 6e 65 78 74 3b 0d |sprite[a|].next;.|
|00003ce0| 09 09 09 09 09 65 6e 64 | 3b 7b 33 7d 0d 7b 64 6f |.....end|;{3}.{do|
|00003cf0| 20 73 6f 72 74 69 6e 67 | 7d 0d 09 09 09 09 69 66 | sorting|}.....if|
|00003d00| 20 28 67 47 52 41 46 2e | 77 68 61 74 73 6f 72 74 | (gGRAF.|whatsort|
|00003d10| 73 74 79 6c 65 20 3d 20 | 32 29 20 61 6e 64 20 28 |style = |2) and (|
|00003d20| 74 68 65 73 70 72 69 74 | 65 5b 67 47 52 41 46 2e |thesprit|e[gGRAF.|
|00003d30| 72 6f 6f 74 5d 2e 6e 65 | 78 74 20 3c 3e 20 30 29 |root].ne|xt <> 0)|
|00003d40| 20 74 68 65 6e 0d 09 09 | 09 09 09 62 65 67 69 6e | then...|...begin|
|00003d50| 0d 09 09 09 09 09 09 61 | 20 3a 3d 20 67 47 52 41 |.......a| := gGRA|
|00003d60| 46 2e 72 6f 6f 74 3b 0d | 09 09 09 09 09 09 62 20 |F.root;.|......b |
|00003d70| 3a 3d 20 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |:= thesp|rite[a].|
|00003d80| 6e 65 78 74 3b 0d 09 09 | 09 09 09 09 66 20 3a 3d |next;...|....f :=|
|00003d90| 20 74 68 65 73 70 72 69 | 74 65 5b 62 5d 2e 6e 65 | thespri|te[b].ne|
|00003da0| 78 74 3b 0d 09 09 09 09 | 09 09 63 20 3a 3d 20 30 |xt;.....|..c := 0|
|00003db0| 3b 0d 09 09 09 09 09 09 | 69 66 20 74 68 65 73 70 |;.......|if thesp|
|00003dc0| 72 69 74 65 5b 62 5d 2e | 70 6f 73 69 74 69 6f 6e |rite[b].|position|
|00003dd0| 2e 76 20 3c 20 74 68 65 | 73 70 72 69 74 65 5b 61 |.v < the|sprite[a|
|00003de0| 5d 2e 70 6f 73 69 74 69 | 6f 6e 2e 76 20 74 68 65 |].positi|on.v the|
|00003df0| 6e 0d 09 09 09 09 09 09 | 09 62 65 67 69 6e 0d 09 |n.......|.begin..|
|00003e00| 09 09 09 09 09 09 09 67 | 47 52 41 46 2e 72 6f 6f |.......g|GRAF.roo|
|00003e10| 74 20 3a 3d 20 62 3b 0d | 09 09 09 09 09 09 09 09 |t := b;.|........|
|00003e20| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 6e 65 78 |thesprit|e[a].nex|
|00003e30| 74 20 3a 3d 20 74 68 65 | 73 70 72 69 74 65 5b 62 |t := the|sprite[b|
|00003e40| 5d 2e 6e 65 78 74 3b 0d | 09 09 09 09 09 09 09 09 |].next;.|........|
|00003e50| 74 68 65 73 70 72 69 74 | 65 5b 62 5d 2e 6e 65 78 |thesprit|e[b].nex|
|00003e60| 74 20 3a 3d 20 61 3b 0d | 09 09 09 09 09 09 09 09 |t := a;.|........|
|00003e70| 61 20 3a 3d 20 67 47 52 | 41 46 2e 72 6f 6f 74 3b |a := gGR|AF.root;|
|00003e80| 0d 09 09 09 09 09 09 09 | 09 62 20 3a 3d 20 74 68 |........|.b := th|
|00003e90| 65 73 70 72 69 74 65 5b | 61 5d 2e 6e 65 78 74 3b |esprite[|a].next;|
|00003ea0| 0d 09 09 09 09 09 09 09 | 09 66 20 3a 3d 20 74 68 |........|.f := th|
|00003eb0| 65 73 70 72 69 74 65 5b | 62 5d 2e 6e 65 78 74 3b |esprite[|b].next;|
|00003ec0| 0d 09 09 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |........|end;....|
|00003ed0| 09 09 09 77 68 69 6c 65 | 20 63 20 3d 20 30 20 64 |...while| c = 0 d|
|00003ee0| 6f 0d 09 09 09 09 09 09 | 09 62 65 67 69 6e 0d 09 |o.......|.begin..|
|00003ef0| 09 09 09 09 09 09 09 68 | 20 3a 3d 20 30 3b 0d 09 |.......h| := 0;..|
|00003f00| 09 09 09 09 09 09 09 69 | 66 20 28 74 68 65 73 70 |.......i|f (thesp|
|00003f10| 72 69 74 65 5b 66 5d 2e | 70 6f 73 69 74 69 6f 6e |rite[f].|position|
|00003f20| 2e 76 20 3c 20 74 68 65 | 73 70 72 69 74 65 5b 62 |.v < the|sprite[b|
|00003f30| 5d 2e 70 6f 73 69 74 69 | 6f 6e 2e 76 29 20 61 6e |].positi|on.v) an|
|00003f40| 64 20 28 74 68 65 73 70 | 72 69 74 65 5b 62 5d 2e |d (thesp|rite[b].|
|00003f50| 69 73 74 68 65 72 65 20 | 3d 20 31 29 20 61 6e 64 |isthere |= 1) and|
|00003f60| 20 28 74 68 65 73 70 72 | 69 74 65 5b 66 5d 2e 69 | (thespr|ite[f].i|
|00003f70| 73 74 68 65 72 65 20 3d | 20 31 29 20 74 68 65 6e |sthere =| 1) then|
|00003f80| 0d 09 09 09 09 09 09 09 | 09 09 62 65 67 69 6e 0d |........|..begin.|
|00003f90| 09 09 09 09 09 09 09 09 | 09 09 74 68 65 73 70 72 |........|..thespr|
|00003fa0| 69 74 65 5b 61 5d 2e 6e | 65 78 74 20 3a 3d 20 66 |ite[a].n|ext := f|
|00003fb0| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 67 20 3a 3d |;.......|....g :=|
|00003fc0| 20 74 68 65 73 70 72 69 | 74 65 5b 66 5d 2e 6e 65 | thespri|te[f].ne|
|00003fd0| 78 74 3b 0d 09 09 09 09 | 09 09 09 09 09 09 74 68 |xt;.....|......th|
|00003fe0| 65 73 70 72 69 74 65 5b | 66 5d 2e 6e 65 78 74 20 |esprite[|f].next |
|00003ff0| 3a 3d 20 62 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |:= b;...|........|
|00004000| 74 68 65 73 70 72 69 74 | 65 5b 62 5d 2e 6e 65 78 |thesprit|e[b].nex|
|00004010| 74 20 3a 3d 20 67 3b 0d | 09 09 09 09 09 09 09 09 |t := g;.|........|
|00004020| 09 09 68 20 3a 3d 20 31 | 3b 0d 09 09 09 09 09 09 |..h := 1|;.......|
|00004030| 09 09 09 65 6e 64 3b 0d | 09 09 09 09 09 09 09 09 |...end;.|........|
|00004040| 69 66 20 68 20 3d 20 31 | 20 74 68 65 6e 0d 09 09 |if h = 1| then...|
|00004050| 09 09 09 09 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |.......b|egin....|
|00004060| 09 09 09 09 09 09 09 61 | 20 3a 3d 20 74 68 65 73 |.......a| := thes|
|00004070| 70 72 69 74 65 5b 61 5d | 2e 6e 65 78 74 3b 0d 09 |prite[a]|.next;..|
|00004080| 09 09 09 09 09 09 09 09 | 09 62 20 3a 3d 20 74 68 |........|.b := th|
|00004090| 65 73 70 72 69 74 65 5b | 66 5d 2e 6e 65 78 74 3b |esprite[|f].next;|
|000040a0| 0d 09 09 09 09 09 09 09 | 09 09 09 66 20 3a 3d 20 |........|...f := |
|000040b0| 74 68 65 73 70 72 69 74 | 65 5b 62 5d 2e 6e 65 78 |thesprit|e[b].nex|
|000040c0| 74 3b 0d 09 09 09 09 09 | 09 09 09 09 65 6e 64 3b |t;......|....end;|
|000040d0| 0d 09 09 09 09 09 09 09 | 09 69 66 20 68 20 3d 20 |........|.if h = |
|000040e0| 30 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 09 09 |0 then..|........|
|000040f0| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 09 09 09 09 |begin...|........|
|00004100| 61 20 3a 3d 20 74 68 65 | 73 70 72 69 74 65 5b 61 |a := the|sprite[a|
|00004110| 5d 2e 6e 65 78 74 3b 0d | 09 09 09 09 09 09 09 09 |].next;.|........|
|00004120| 09 09 62 20 3a 3d 20 74 | 68 65 73 70 72 69 74 65 |..b := t|hesprite|
|00004130| 5b 62 5d 2e 6e 65 78 74 | 3b 0d 09 09 09 09 09 09 |[b].next|;.......|
|00004140| 09 09 09 09 66 20 3a 3d | 20 74 68 65 73 70 72 69 |....f :=| thespri|
|00004150| 74 65 5b 66 5d 2e 6e 65 | 78 74 3b 0d 09 09 09 09 |te[f].ne|xt;.....|
|00004160| 09 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 09 09 09 |.....end|;.......|
|00004170| 09 09 69 66 20 28 66 20 | 3d 20 30 29 20 6f 72 20 |..if (f |= 0) or |
|00004180| 28 62 20 3d 20 30 29 20 | 6f 72 20 28 61 20 3d 20 |(b = 0) |or (a = |
|00004190| 30 29 20 74 68 65 6e 0d | 09 09 09 09 09 09 09 09 |0) then.|........|
|000041a0| 09 63 20 3a 3d 20 31 3b | 0d 09 09 09 09 09 09 09 |.c := 1;|........|
|000041b0| 65 6e 64 3b 0d 09 09 09 | 09 09 65 6e 64 3b 0d 09 |end;....|..end;..|
|000041c0| 09 09 09 69 66 20 67 47 | 52 41 46 2e 77 68 61 74 |...if gG|RAF.what|
|000041d0| 73 6f 72 74 73 74 79 6c | 65 20 3d 20 31 20 74 68 |sortstyl|e = 1 th|
|000041e0| 65 6e 0d 09 09 09 09 09 | 62 65 67 69 6e 0d 09 09 |en......|begin...|
|000041f0| 09 09 09 65 6e 64 3b 0d | 09 09 09 09 61 20 3a 3d |...end;.|....a :=|
|00004200| 20 67 47 52 41 46 2e 72 | 6f 6f 74 3b 0d 09 09 09 | gGRAF.r|oot;....|
|00004210| 09 77 68 69 6c 65 20 61 | 20 3c 3e 20 30 20 64 6f |.while a| <> 0 do|
|00004220| 0d 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00004230| 09 09 74 68 65 73 70 72 | 69 74 65 5b 61 5d 2e 69 |..thespr|ite[a].i|
|00004240| 73 64 6f 6e 65 20 3a 3d | 20 66 61 6c 73 65 3b 0d |sdone :=| false;.|
|00004250| 09 09 09 09 09 09 61 20 | 3a 3d 20 74 68 65 73 70 |......a |:= thesp|
|00004260| 72 69 74 65 5b 61 5d 2e | 6e 65 78 74 3b 0d 09 09 |rite[a].|next;...|
|00004270| 09 09 09 65 6e 64 3b 0d | 09 09 09 65 6e 64 3b 0d |...end;.|...end;.|
|00004280| 09 65 6e 64 3b 0d 0d 09 | 70 72 6f 63 65 64 75 72 |.end;...|procedur|
|00004290| 65 20 52 75 6e 47 52 41 | 46 20 28 68 6f 77 66 69 |e RunGRA|F (howfi|
|000042a0| 78 3a 20 69 6e 74 65 67 | 65 72 29 3b 0d 09 09 76 |x: integ|er);...v|
|000042b0| 61 72 0d 09 09 09 74 65 | 6d 70 32 3a 20 73 70 72 |ar....te|mp2: spr|
|000042c0| 69 74 65 3b 0d 09 09 09 | 74 65 6d 70 2c 20 64 2c |ite;....|temp, d,|
|000042d0| 20 65 3a 20 72 65 63 74 | 3b 0d 09 09 09 74 65 6d | e: rect|;....tem|
|000042e0| 70 33 3a 20 50 72 6f 63 | 50 74 72 3b 0d 09 09 09 |p3: Proc|Ptr;....|
|000042f0| 61 2c 20 62 2c 20 63 2c | 20 66 2c 20 67 2c 20 68 |a, b, c,| f, g, h|
|00004300| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 09 62 65 67 69 |: Intege|r;..begi|
|00004310| 6e 0d 09 09 69 66 20 67 | 47 52 41 46 2e 61 72 65 |n...if g|GRAF.are|
|00004320| 6e 6f 6e 65 20 3d 20 66 | 61 6c 73 65 20 74 68 65 |none = f|alse the|
|00004330| 6e 0d 09 09 09 62 65 67 | 69 6e 0d 7b 64 6f 20 72 |n....beg|in.{do r|
|00004340| 65 67 75 6c 61 72 20 74 | 61 73 6b 73 7d 0d 09 09 |egular t|asks}...|
|00004350| 09 09 61 20 3a 3d 20 67 | 47 52 41 46 2e 72 6f 6f |..a := g|GRAF.roo|
|00004360| 74 3b 0d 09 09 09 09 77 | 68 69 6c 65 20 61 20 3c |t;.....w|hile a <|
|00004370| 3e 20 30 20 64 6f 0d 09 | 09 09 09 09 62 65 67 69 |> 0 do..|....begi|
|00004380| 6e 0d 09 09 09 09 09 09 | 69 66 20 74 68 65 73 70 |n.......|if thesp|
|00004390| 72 69 74 65 5b 61 5d 2e | 74 61 73 6b 20 3c 3e 20 |rite[a].|task <> |
|000043a0| 6e 69 6c 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 |nil then|........|
|000043b0| 63 61 6c 6c 54 61 73 6b | 28 74 68 65 73 70 72 69 |callTask|(thespri|
|000043c0| 74 65 5b 61 5d 2c 20 74 | 68 65 73 70 72 69 74 65 |te[a], t|hesprite|
|000043d0| 5b 61 5d 2e 74 61 73 6b | 29 3b 0d 09 09 09 09 09 |[a].task|);......|
|000043e0| 09 61 20 3a 3d 20 74 68 | 65 73 70 72 69 74 65 5b |.a := th|esprite[|
|000043f0| 61 5d 2e 6e 65 78 74 3b | 0d 09 09 09 09 09 65 6e |a].next;|......en|
|00004400| 64 3b 0d 7b 64 6f 20 63 | 6f 6c 6c 69 73 69 6f 6e |d;.{do c|ollision|
|00004410| 74 61 73 6b 73 7d 0d 09 | 09 09 09 61 20 3a 3d 20 |tasks}..|...a := |
|00004420| 67 47 52 41 46 2e 72 6f | 6f 74 3b 0d 09 09 09 09 |gGRAF.ro|ot;.....|
|00004430| 77 68 69 6c 65 20 61 20 | 3c 3e 20 30 20 64 6f 0d |while a |<> 0 do.|
|00004440| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00004450| 09 73 65 74 72 65 63 74 | 28 74 68 65 73 70 72 69 |.setrect|(thespri|
|00004460| 74 65 5b 61 5d 2e 6e 65 | 77 70 6c 61 63 65 2c 20 |te[a].ne|wplace, |
|00004470| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 70 6f 73 |thesprit|e[a].pos|
|00004480| 69 74 69 6f 6e 2e 68 2c | 20 74 68 65 73 70 72 69 |ition.h,| thespri|
|00004490| 74 65 5b 61 5d 2e 70 6f | 73 69 74 69 6f 6e 2e 76 |te[a].po|sition.v|
|000044a0| 2c 20 74 68 65 73 70 72 | 69 74 65 5b 61 5d 2e 70 |, thespr|ite[a].p|
|000044b0| 6f 73 69 74 69 6f 6e 2e | 68 20 2b 20 74 68 65 73 |osition.|h + thes|
|000044c0| 70 72 69 74 65 5b 61 5d | 2e 74 68 65 66 61 63 65 |prite[a]|.theface|
|000044d0| 2e 73 69 7a 65 72 65 63 | 74 2e 72 69 67 68 74 2c |.sizerec|t.right,|
|000044e0| 20 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 70 6f | thespri|te[a].po|
|000044f0| 73 69 74 69 6f 6e 2e 76 | 20 2b 20 74 68 65 73 70 |sition.v| + thesp|
|00004500| 72 69 74 65 5b 61 5d 2e | 74 68 65 66 61 63 65 2e |rite[a].|theface.|
|00004510| 73 69 7a 65 72 65 63 74 | 2e 62 6f 74 74 6f 6d 29 |sizerect|.bottom)|
|00004520| 3b 0d 09 09 09 09 09 09 | 73 65 74 72 65 63 74 28 |;.......|setrect(|
|00004530| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 63 6f 6c |thesprit|e[a].col|
|00004540| 6c 69 73 69 6f 6e 70 6c | 61 63 65 2c 20 74 68 65 |lisionpl|ace, the|
|00004550| 73 70 72 69 74 65 5b 61 | 5d 2e 6e 65 77 70 6c 61 |sprite[a|].newpla|
|00004560| 63 65 2e 6c 65 66 74 20 | 2b 20 74 68 65 73 70 72 |ce.left |+ thespr|
|00004570| 69 74 65 5b 61 5d 2e 74 | 68 65 66 61 63 65 2e 63 |ite[a].t|heface.c|
|00004580| 6f 6c 6c 69 73 69 6f 6e | 73 69 7a 65 2e 6c 65 66 |ollision|size.lef|
|00004590| 74 2c 20 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |t, thesp|rite[a].|
|000045a0| 6e 65 77 70 6c 61 63 65 | 2e 74 6f 70 20 2b 20 74 |newplace|.top + t|
|000045b0| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 74 68 65 66 |hesprite|[a].thef|
|000045c0| 61 63 65 2e 63 6f 6c 6c | 69 73 69 6f 6e 73 69 7a |ace.coll|isionsiz|
|000045d0| 65 2e 74 6f 70 2c 20 74 | 68 65 73 70 72 69 74 65 |e.top, t|hesprite|
|000045e0| 5b 61 5d 2e 6e 65 77 70 | 6c 61 63 65 2e 72 69 67 |[a].newp|lace.rig|
|000045f0| 68 74 20 2d 20 28 74 68 | 65 73 70 72 69 74 65 5b |ht - (th|esprite[|
|00004600| 61 5d 2e 74 68 65 66 61 | 63 65 2e 73 69 7a 65 72 |a].thefa|ce.sizer|
|00004610| 65 63 74 2e 72 69 67 68 | 74 20 2d 20 74 68 65 73 |ect.righ|t - thes|
|00004620| 70 72 69 74 65 5b 61 5d | 2e 74 68 65 66 61 63 65 |prite[a]|.theface|
|00004630| 2e 63 6f 6c 6c 69 73 69 | 6f 6e 73 69 7a 65 2e 72 |.collisi|onsize.r|
|00004640| 69 67 68 74 29 2c 20 74 | 68 65 73 70 72 69 74 65 |ight), t|hesprite|
|00004650| 5b 61 5d 2e 6e 65 77 70 | 6c 61 63 65 2e 62 6f 74 |[a].newp|lace.bot|
|00004660| 74 6f 6d 20 2d 20 28 74 | 68 65 73 70 72 69 74 65 |tom - (t|hesprite|
|00004670| 5b 61 5d 2e 74 68 65 66 | 61 63 65 2e 73 69 7a 65 |[a].thef|ace.size|
|00004680| 72 65 63 74 2e 62 6f 74 | 74 6f 6d 20 2d 20 74 68 |rect.bot|tom - th|
|00004690| 65 73 70 72 69 74 65 5b | 61 5d 2e 74 68 65 66 61 |esprite[|a].thefa|
|000046a0| 63 65 2e 63 6f 6c 6c 69 | 73 69 6f 6e 73 69 7a 65 |ce.colli|sionsize|
|000046b0| 2e 62 6f 74 74 6f 6d 29 | 29 3b 0d 09 09 09 09 09 |.bottom)|);......|
|000046c0| 09 61 20 3a 3d 20 74 68 | 65 73 70 72 69 74 65 5b |.a := th|esprite[|
|000046d0| 61 5d 2e 6e 65 78 74 3b | 0d 09 09 09 09 09 65 6e |a].next;|......en|
|000046e0| 64 3b 0d 09 09 09 09 61 | 20 3a 3d 20 67 47 52 41 |d;.....a| := gGRA|
|000046f0| 46 2e 72 6f 6f 74 3b 0d | 09 09 09 09 77 68 69 6c |F.root;.|....whil|
|00004700| 65 20 61 20 3c 3e 20 30 | 20 64 6f 0d 09 09 09 09 |e a <> 0| do.....|
|00004710| 09 62 65 67 69 6e 0d 09 | 09 09 09 09 09 69 66 20 |.begin..|.....if |
|00004720| 28 67 47 52 41 46 2e 77 | 68 61 74 73 63 72 6e 20 |(gGRAF.w|hatscrn |
|00004730| 3d 20 74 68 65 73 70 72 | 69 74 65 5b 61 5d 2e 77 |= thespr|ite[a].w|
|00004740| 68 61 74 73 63 72 6e 69 | 73 72 65 63 74 29 20 61 |hatscrni|srect) a|
|00004750| 6e 64 20 28 74 68 65 73 | 70 72 69 74 65 5b 61 5d |nd (thes|prite[a]|
|00004760| 2e 69 73 64 6f 6e 65 20 | 3d 20 66 61 6c 73 65 29 |.isdone |= false)|
|00004770| 20 61 6e 64 20 28 74 68 | 65 73 70 72 69 74 65 5b | and (th|esprite[|
|00004780| 61 5d 2e 6b 69 6c 6c 73 | 70 72 69 74 65 66 6c 61 |a].kills|pritefla|
|00004790| 67 20 3d 20 66 61 6c 73 | 65 29 20 74 68 65 6e 0d |g = fals|e) then.|
|000047a0| 09 09 09 09 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |.......b|egin....|
|000047b0| 09 09 09 09 09 62 20 3a | 3d 20 67 47 52 41 46 2e |.....b :|= gGRAF.|
|000047c0| 72 6f 6f 74 3b 0d 09 09 | 09 09 09 09 09 09 77 68 |root;...|......wh|
|000047d0| 69 6c 65 20 28 62 20 3c | 3e 20 30 29 20 64 6f 0d |ile (b <|> 0) do.|
|000047e0| 09 09 09 09 09 09 09 09 | 09 62 65 67 69 6e 0d 09 |........|.begin..|
|000047f0| 09 09 09 09 09 09 09 09 | 09 69 66 20 28 67 47 52 |........|.if (gGR|
|00004800| 41 46 2e 64 69 66 66 6c | 65 76 65 6c 20 3d 20 74 |AF.diffl|evel = t|
|00004810| 72 75 65 29 20 61 6e 64 | 20 28 74 68 65 73 70 72 |rue) and| (thespr|
|00004820| 69 74 65 5b 62 5d 2e 69 | 73 64 6f 6e 65 20 3d 20 |ite[b].i|sdone = |
|00004830| 66 61 6c 73 65 29 20 61 | 6e 64 20 28 74 68 65 73 |false) a|nd (thes|
|00004840| 70 72 69 74 65 5b 62 5d | 2e 6b 69 6c 6c 73 70 72 |prite[b]|.killspr|
|00004850| 69 74 65 66 6c 61 67 20 | 3d 20 66 61 6c 73 65 29 |iteflag |= false)|
|00004860| 20 74 68 65 6e 0d 09 09 | 09 09 09 09 09 09 09 09 | then...|........|
|00004870| 09 62 65 67 69 6e 0d 09 | 09 09 09 09 09 09 09 09 |.begin..|........|
|00004880| 09 09 09 69 66 20 28 62 | 20 3c 3e 20 61 29 20 61 |...if (b| <> a) a|
|00004890| 6e 64 20 28 74 68 65 73 | 70 72 69 74 65 5b 61 5d |nd (thes|prite[a]|
|000048a0| 2e 6b 69 6c 6c 73 70 72 | 69 74 65 66 6c 61 67 20 |.killspr|iteflag |
|000048b0| 3d 20 66 61 6c 73 65 29 | 20 61 6e 64 20 28 73 65 |= false)| and (se|
|000048c0| 63 74 72 65 63 74 28 74 | 68 65 73 70 72 69 74 65 |ctrect(t|hesprite|
|000048d0| 5b 61 5d 2e 63 6f 6c 6c | 69 73 69 6f 6e 70 6c 61 |[a].coll|isionpla|
|000048e0| 63 65 2c 20 74 68 65 73 | 70 72 69 74 65 5b 62 5d |ce, thes|prite[b]|
|000048f0| 2e 63 6f 6c 6c 69 73 69 | 6f 6e 70 6c 61 63 65 2c |.collisi|onplace,|
|00004900| 20 64 29 29 20 61 6e 64 | 20 28 67 47 52 41 46 2e | d)) and| (gGRAF.|
|00004910| 77 68 61 74 73 63 72 6e | 20 3d 20 74 68 65 73 70 |whatscrn| = thesp|
|00004920| 72 69 74 65 5b 62 5d 2e | 77 68 61 74 73 63 72 6e |rite[b].|whatscrn|
|00004930| 69 73 72 65 63 74 29 20 | 61 6e 64 20 28 74 68 65 |isrect) |and (the|
|00004940| 73 70 72 69 74 65 5b 61 | 5d 2e 6b 69 6e 64 20 3c |sprite[a|].kind <|
|00004950| 3e 20 74 68 65 73 70 72 | 69 74 65 5b 62 5d 2e 6b |> thespr|ite[b].k|
|00004960| 69 6e 64 29 20 61 6e 64 | 20 28 74 68 65 73 70 72 |ind) and| (thespr|
|00004970| 69 74 65 5b 61 5d 2e 70 | 6f 73 69 74 69 6f 6e 2e |ite[a].p|osition.|
|00004980| 76 20 3d 20 74 68 65 73 | 70 72 69 74 65 5b 62 5d |v = thes|prite[b]|
|00004990| 2e 70 6f 73 69 74 69 6f | 6e 2e 76 29 20 74 68 65 |.positio|n.v) the|
|000049a0| 6e 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 09 62 |n.......|.......b|
|000049b0| 65 67 69 6e 0d 09 09 09 | 09 09 09 09 09 09 09 09 |egin....|........|
|000049c0| 09 09 09 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |...thesp|rite[a].|
|000049d0| 69 73 64 6f 6e 65 20 3a | 3d 20 74 72 75 65 3b 0d |isdone :|= true;.|
|000049e0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 74 68 |........|......th|
|000049f0| 65 73 70 72 69 74 65 5b | 62 5d 2e 69 73 64 6f 6e |esprite[|b].isdon|
|00004a00| 65 20 3a 3d 20 74 72 75 | 65 3b 0d 09 09 09 09 09 |e := tru|e;......|
|00004a10| 09 09 09 09 09 09 09 09 | 09 69 66 20 74 68 65 73 |........|.if thes|
|00004a20| 70 72 69 74 65 5b 61 5d | 2e 68 69 74 54 61 73 6b |prite[a]|.hitTask|
|00004a30| 20 3c 3e 20 6e 69 6c 20 | 74 68 65 6e 0d 09 09 09 | <> nil |then....|
|00004a40| 09 09 09 09 09 09 09 09 | 09 09 09 09 63 61 6c 6c |........|....call|
|00004a50| 48 69 74 54 61 73 6b 28 | 74 68 65 73 70 72 69 74 |HitTask(|thesprit|
|00004a60| 65 5b 61 5d 2c 20 74 68 | 65 73 70 72 69 74 65 5b |e[a], th|esprite[|
|00004a70| 62 5d 2c 20 74 68 65 73 | 70 72 69 74 65 5b 61 5d |b], thes|prite[a]|
|00004a80| 2e 68 69 74 54 61 73 6b | 29 3b 0d 09 09 09 09 09 |.hitTask|);......|
|00004a90| 09 09 09 09 09 09 09 09 | 09 69 66 20 28 67 47 52 |........|.if (gGR|
|00004aa0| 41 46 2e 77 68 61 74 63 | 6f 6c 6c 69 73 69 6f 6e |AF.whatc|ollision|
|00004ab0| 73 74 79 6c 65 20 3d 20 | 31 29 20 61 6e 64 20 28 |style = |1) and (|
|00004ac0| 74 68 65 73 70 72 69 74 | 65 5b 62 5d 2e 68 69 74 |thesprit|e[b].hit|
|00004ad0| 54 61 73 6b 20 3c 3e 20 | 6e 69 6c 29 20 74 68 65 |Task <> |nil) the|
|00004ae0| 6e 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |n.......|........|
|00004af0| 09 63 61 6c 6c 48 69 74 | 54 61 73 6b 28 74 68 65 |.callHit|Task(the|
|00004b00| 73 70 72 69 74 65 5b 62 | 5d 2c 20 74 68 65 73 70 |sprite[b|], thesp|
|00004b10| 72 69 74 65 5b 61 5d 2c | 20 74 68 65 73 70 72 69 |rite[a],| thespri|
|00004b20| 74 65 5b 62 5d 2e 68 69 | 74 54 61 73 6b 29 3b 0d |te[b].hi|tTask);.|
|00004b30| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 65 6e 64 |........|.....end|
|00004b40| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 09 65 6e 64 |;.......|.....end|
|00004b50| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 69 66 20 28 |;.......|....if (|
|00004b60| 67 47 52 41 46 2e 64 69 | 66 66 6c 65 76 65 6c 20 |gGRAF.di|fflevel |
|00004b70| 3d 20 66 61 6c 73 65 29 | 20 61 6e 64 20 28 74 68 |= false)| and (th|
|00004b80| 65 73 70 72 69 74 65 5b | 62 5d 2e 69 73 64 6f 6e |esprite[|b].isdon|
|00004b90| 65 20 3d 20 66 61 6c 73 | 65 29 20 61 6e 64 20 28 |e = fals|e) and (|
|00004ba0| 74 68 65 73 70 72 69 74 | 65 5b 62 5d 2e 6b 69 6c |thesprit|e[b].kil|
|00004bb0| 6c 73 70 72 69 74 65 66 | 6c 61 67 20 3d 20 66 61 |lspritef|lag = fa|
|00004bc0| 6c 73 65 29 20 74 68 65 | 6e 0d 09 09 09 09 09 09 |lse) the|n.......|
|00004bd0| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00004be0| 09 09 09 09 09 09 09 69 | 66 20 28 62 20 3c 3e 20 |.......i|f (b <> |
|00004bf0| 61 29 20 61 6e 64 20 28 | 74 68 65 73 70 72 69 74 |a) and (|thesprit|
|00004c00| 65 5b 61 5d 2e 6b 69 6c | 6c 73 70 72 69 74 65 66 |e[a].kil|lspritef|
|00004c10| 6c 61 67 20 3d 20 66 61 | 6c 73 65 29 20 61 6e 64 |lag = fa|lse) and|
|00004c20| 20 28 73 65 63 74 72 65 | 63 74 28 74 68 65 73 70 | (sectre|ct(thesp|
|00004c30| 72 69 74 65 5b 61 5d 2e | 63 6f 6c 6c 69 73 69 6f |rite[a].|collisio|
|00004c40| 6e 70 6c 61 63 65 2c 20 | 74 68 65 73 70 72 69 74 |nplace, |thesprit|
|00004c50| 65 5b 62 5d 2e 63 6f 6c | 6c 69 73 69 6f 6e 70 6c |e[b].col|lisionpl|
|00004c60| 61 63 65 2c 20 64 29 29 | 20 61 6e 64 20 28 67 47 |ace, d))| and (gG|
|00004c70| 52 41 46 2e 77 68 61 74 | 73 63 72 6e 20 3d 20 74 |RAF.what|scrn = t|
|00004c80| 68 65 73 70 72 69 74 65 | 5b 62 5d 2e 77 68 61 74 |hesprite|[b].what|
|00004c90| 73 63 72 6e 69 73 72 65 | 63 74 29 20 61 6e 64 20 |scrnisre|ct) and |
|00004ca0| 28 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 6b 69 |(thespri|te[a].ki|
|00004cb0| 6e 64 20 3c 3e 20 74 68 | 65 73 70 72 69 74 65 5b |nd <> th|esprite[|
|00004cc0| 62 5d 2e 6b 69 6e 64 29 | 20 74 68 65 6e 0d 09 09 |b].kind)| then...|
|00004cd0| 09 09 09 09 09 09 09 09 | 09 09 09 62 65 67 69 6e |........|...begin|
|00004ce0| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 74 |........|.......t|
|00004cf0| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 69 73 64 6f |hesprite|[a].isdo|
|00004d00| 6e 65 20 3a 3d 20 74 72 | 75 65 3b 0d 09 09 09 09 |ne := tr|ue;.....|
|00004d10| 09 09 09 09 09 09 09 09 | 09 09 74 68 65 73 70 72 |........|..thespr|
|00004d20| 69 74 65 5b 62 5d 2e 69 | 73 64 6f 6e 65 20 3a 3d |ite[b].i|sdone :=|
|00004d30| 20 74 72 75 65 3b 0d 09 | 09 09 09 09 09 09 09 09 | true;..|........|
|00004d40| 09 09 09 09 09 69 66 20 | 74 68 65 73 70 72 69 74 |.....if |thesprit|
|00004d50| 65 5b 61 5d 2e 68 69 74 | 54 61 73 6b 20 3c 3e 20 |e[a].hit|Task <> |
|00004d60| 6e 69 6c 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 |nil then|........|
|00004d70| 09 09 09 09 09 09 09 09 | 63 61 6c 6c 48 69 74 54 |........|callHitT|
|00004d80| 61 73 6b 28 74 68 65 73 | 70 72 69 74 65 5b 61 5d |ask(thes|prite[a]|
|00004d90| 2c 20 74 68 65 73 70 72 | 69 74 65 5b 62 5d 2c 20 |, thespr|ite[b], |
|00004da0| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 68 69 74 |thesprit|e[a].hit|
|00004db0| 54 61 73 6b 29 3b 0d 09 | 09 09 09 09 09 09 09 09 |Task);..|........|
|00004dc0| 09 09 09 09 09 69 66 20 | 28 67 47 52 41 46 2e 77 |.....if |(gGRAF.w|
|00004dd0| 68 61 74 63 6f 6c 6c 69 | 73 69 6f 6e 73 74 79 6c |hatcolli|sionstyl|
|00004de0| 65 20 3d 20 31 29 20 61 | 6e 64 20 28 74 68 65 73 |e = 1) a|nd (thes|
|00004df0| 70 72 69 74 65 5b 62 5d | 2e 68 69 74 54 61 73 6b |prite[b]|.hitTask|
|00004e00| 20 3c 3e 20 6e 69 6c 29 | 20 74 68 65 6e 0d 09 09 | <> nil)| then...|
|00004e10| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 63 61 6c |........|.....cal|
|00004e20| 6c 48 69 74 54 61 73 6b | 28 74 68 65 73 70 72 69 |lHitTask|(thespri|
|00004e30| 74 65 5b 62 5d 2c 20 74 | 68 65 73 70 72 69 74 65 |te[b], t|hesprite|
|00004e40| 5b 61 5d 2c 20 74 68 65 | 73 70 72 69 74 65 5b 62 |[a], the|sprite[b|
|00004e50| 5d 2e 68 69 74 54 61 73 | 6b 29 3b 0d 09 09 09 09 |].hitTas|k);.....|
|00004e60| 09 09 09 09 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |........|.end;...|
|00004e70| 09 09 09 09 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |........|.end;...|
|00004e80| 09 09 09 09 09 09 09 09 | 62 20 3a 3d 20 74 68 65 |........|b := the|
|00004e90| 73 70 72 69 74 65 5b 62 | 5d 2e 6e 65 78 74 3b 0d |sprite[b|].next;.|
|00004ea0| 09 09 09 09 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |........|.end;...|
|00004eb0| 09 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 09 09 09 |.....end|;.......|
|00004ec0| 61 20 3a 3d 20 74 68 65 | 73 70 72 69 74 65 5b 61 |a := the|sprite[a|
|00004ed0| 5d 2e 6e 65 78 74 3b 0d | 09 09 09 09 09 65 6e 64 |].next;.|.....end|
|00004ee0| 3b 0d 7b 64 6f 20 73 6f | 72 74 69 6e 67 7d 0d 09 |;.{do so|rting}..|
|00004ef0| 09 09 09 69 66 20 28 67 | 47 52 41 46 2e 77 68 61 |...if (g|GRAF.wha|
|00004f00| 74 73 6f 72 74 73 74 79 | 6c 65 20 3d 20 32 29 20 |tsortsty|le = 2) |
|00004f10| 61 6e 64 20 28 74 68 65 | 73 70 72 69 74 65 5b 67 |and (the|sprite[g|
|00004f20| 47 52 41 46 2e 72 6f 6f | 74 5d 2e 6e 65 78 74 20 |GRAF.roo|t].next |
|00004f30| 3c 3e 20 30 29 20 74 68 | 65 6e 0d 09 09 09 09 09 |<> 0) th|en......|
|00004f40| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 61 20 3a 3d |begin...|....a :=|
|00004f50| 20 67 47 52 41 46 2e 72 | 6f 6f 74 3b 0d 09 09 09 | gGRAF.r|oot;....|
|00004f60| 09 09 09 62 20 3a 3d 20 | 74 68 65 73 70 72 69 74 |...b := |thesprit|
|00004f70| 65 5b 61 5d 2e 6e 65 78 | 74 3b 0d 09 09 09 09 09 |e[a].nex|t;......|
|00004f80| 09 66 20 3a 3d 20 74 68 | 65 73 70 72 69 74 65 5b |.f := th|esprite[|
|00004f90| 62 5d 2e 6e 65 78 74 3b | 0d 09 09 09 09 09 09 63 |b].next;|.......c|
|00004fa0| 20 3a 3d 20 30 3b 0d 09 | 09 09 09 09 09 69 66 20 | := 0;..|.....if |
|00004fb0| 74 68 65 73 70 72 69 74 | 65 5b 62 5d 2e 70 6f 73 |thesprit|e[b].pos|
|00004fc0| 69 74 69 6f 6e 2e 76 20 | 3c 20 74 68 65 73 70 72 |ition.v |< thespr|
|00004fd0| 69 74 65 5b 61 5d 2e 70 | 6f 73 69 74 69 6f 6e 2e |ite[a].p|osition.|
|00004fe0| 76 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 62 65 |v then..|......be|
|00004ff0| 67 69 6e 0d 09 09 09 09 | 09 09 09 09 67 47 52 41 |gin.....|....gGRA|
|00005000| 46 2e 72 6f 6f 74 20 3a | 3d 20 62 3b 0d 09 09 09 |F.root :|= b;....|
|00005010| 09 09 09 09 09 74 68 65 | 73 70 72 69 74 65 5b 61 |.....the|sprite[a|
|00005020| 5d 2e 6e 65 78 74 20 3a | 3d 20 74 68 65 73 70 72 |].next :|= thespr|
|00005030| 69 74 65 5b 62 5d 2e 6e | 65 78 74 3b 0d 09 09 09 |ite[b].n|ext;....|
|00005040| 09 09 09 09 09 74 68 65 | 73 70 72 69 74 65 5b 62 |.....the|sprite[b|
|00005050| 5d 2e 6e 65 78 74 20 3a | 3d 20 61 3b 0d 09 09 09 |].next :|= a;....|
|00005060| 09 09 09 09 09 61 20 3a | 3d 20 67 47 52 41 46 2e |.....a :|= gGRAF.|
|00005070| 72 6f 6f 74 3b 0d 09 09 | 09 09 09 09 09 09 62 20 |root;...|......b |
|00005080| 3a 3d 20 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |:= thesp|rite[a].|
|00005090| 6e 65 78 74 3b 0d 09 09 | 09 09 09 09 09 09 66 20 |next;...|......f |
|000050a0| 3a 3d 20 74 68 65 73 70 | 72 69 74 65 5b 62 5d 2e |:= thesp|rite[b].|
|000050b0| 6e 65 78 74 3b 0d 09 09 | 09 09 09 09 09 65 6e 64 |next;...|.....end|
|000050c0| 3b 0d 09 09 09 09 09 09 | 77 68 69 6c 65 20 63 20 |;.......|while c |
|000050d0| 3d 20 30 20 64 6f 0d 09 | 09 09 09 09 09 09 62 65 |= 0 do..|......be|
|000050e0| 67 69 6e 0d 09 09 09 09 | 09 09 09 09 68 20 3a 3d |gin.....|....h :=|
|000050f0| 20 30 3b 0d 09 09 09 09 | 09 09 09 09 69 66 20 28 | 0;.....|....if (|
|00005100| 74 68 65 73 70 72 69 74 | 65 5b 66 5d 2e 70 6f 73 |thesprit|e[f].pos|
|00005110| 69 74 69 6f 6e 2e 76 20 | 3c 20 74 68 65 73 70 72 |ition.v |< thespr|
|00005120| 69 74 65 5b 62 5d 2e 70 | 6f 73 69 74 69 6f 6e 2e |ite[b].p|osition.|
|00005130| 76 29 20 61 6e 64 20 28 | 74 68 65 73 70 72 69 74 |v) and (|thesprit|
|00005140| 65 5b 62 5d 2e 69 73 74 | 68 65 72 65 20 3d 20 31 |e[b].ist|here = 1|
|00005150| 29 20 61 6e 64 20 28 74 | 68 65 73 70 72 69 74 65 |) and (t|hesprite|
|00005160| 5b 66 5d 2e 69 73 74 68 | 65 72 65 20 3d 20 31 29 |[f].isth|ere = 1)|
|00005170| 20 74 68 65 6e 0d 09 09 | 09 09 09 09 09 09 09 62 | then...|.......b|
|00005180| 65 67 69 6e 0d 09 09 09 | 09 09 09 09 09 09 09 74 |egin....|.......t|
|00005190| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 6e 65 78 74 |hesprite|[a].next|
|000051a0| 20 3a 3d 20 66 3b 0d 09 | 09 09 09 09 09 09 09 09 | := f;..|........|
|000051b0| 09 67 20 3a 3d 20 74 68 | 65 73 70 72 69 74 65 5b |.g := th|esprite[|
|000051c0| 66 5d 2e 6e 65 78 74 3b | 0d 09 09 09 09 09 09 09 |f].next;|........|
|000051d0| 09 09 09 74 68 65 73 70 | 72 69 74 65 5b 66 5d 2e |...thesp|rite[f].|
|000051e0| 6e 65 78 74 20 3a 3d 20 | 62 3b 0d 09 09 09 09 09 |next := |b;......|
|000051f0| 09 09 09 09 09 74 68 65 | 73 70 72 69 74 65 5b 62 |.....the|sprite[b|
|00005200| 5d 2e 6e 65 78 74 20 3a | 3d 20 67 3b 0d 09 09 09 |].next :|= g;....|
|00005210| 09 09 09 09 09 09 09 68 | 20 3a 3d 20 31 3b 0d 09 |.......h| := 1;..|
|00005220| 09 09 09 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |........|end;....|
|00005230| 09 09 09 09 09 69 66 20 | 68 20 3d 20 31 20 74 68 |.....if |h = 1 th|
|00005240| 65 6e 0d 09 09 09 09 09 | 09 09 09 09 62 65 67 69 |en......|....begi|
|00005250| 6e 0d 09 09 09 09 09 09 | 09 09 09 09 61 20 3a 3d |n.......|....a :=|
|00005260| 20 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 6e 65 | thespri|te[a].ne|
|00005270| 78 74 3b 0d 09 09 09 09 | 09 09 09 09 09 09 62 20 |xt;.....|......b |
|00005280| 3a 3d 20 74 68 65 73 70 | 72 69 74 65 5b 66 5d 2e |:= thesp|rite[f].|
|00005290| 6e 65 78 74 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |next;...|........|
|000052a0| 66 20 3a 3d 20 74 68 65 | 73 70 72 69 74 65 5b 62 |f := the|sprite[b|
|000052b0| 5d 2e 6e 65 78 74 3b 0d | 09 09 09 09 09 09 09 09 |].next;.|........|
|000052c0| 09 65 6e 64 3b 0d 09 09 | 09 09 09 09 09 09 69 66 |.end;...|......if|
|000052d0| 20 68 20 3d 20 30 20 74 | 68 65 6e 0d 09 09 09 09 | h = 0 t|hen.....|
|000052e0| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|000052f0| 09 09 09 09 09 61 20 3a | 3d 20 74 68 65 73 70 72 |.....a :|= thespr|
|00005300| 69 74 65 5b 61 5d 2e 6e | 65 78 74 3b 0d 09 09 09 |ite[a].n|ext;....|
|00005310| 09 09 09 09 09 09 09 62 | 20 3a 3d 20 74 68 65 73 |.......b| := thes|
|00005320| 70 72 69 74 65 5b 62 5d | 2e 6e 65 78 74 3b 0d 09 |prite[b]|.next;..|
|00005330| 09 09 09 09 09 09 09 09 | 09 66 20 3a 3d 20 74 68 |........|.f := th|
|00005340| 65 73 70 72 69 74 65 5b | 66 5d 2e 6e 65 78 74 3b |esprite[|f].next;|
|00005350| 0d 09 09 09 09 09 09 09 | 09 09 65 6e 64 3b 0d 09 |........|..end;..|
|00005360| 09 09 09 09 09 09 09 69 | 66 20 28 66 20 3d 20 30 |.......i|f (f = 0|
|00005370| 29 20 6f 72 20 28 62 20 | 3d 20 30 29 20 6f 72 20 |) or (b |= 0) or |
|00005380| 28 61 20 3d 20 30 29 20 | 74 68 65 6e 0d 09 09 09 |(a = 0) |then....|
|00005390| 09 09 09 09 09 09 63 20 | 3a 3d 20 31 3b 0d 09 09 |......c |:= 1;...|
|000053a0| 09 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 09 09 65 |.....end|;......e|
|000053b0| 6e 64 3b 0d 09 09 09 09 | 69 66 20 67 47 52 41 46 |nd;.....|if gGRAF|
|000053c0| 2e 77 68 61 74 73 6f 72 | 74 73 74 79 6c 65 20 3d |.whatsor|tstyle =|
|000053d0| 20 31 20 74 68 65 6e 0d | 09 09 09 09 09 62 65 67 | 1 then.|.....beg|
|000053e0| 69 6e 0d 09 09 09 09 09 | 65 6e 64 3b 0d 7b 64 6f |in......|end;.{do|
|000053f0| 20 74 68 65 20 64 72 61 | 77 69 6e 67 7d 0d 09 09 | the dra|wing}...|
|00005400| 09 09 69 66 20 68 6f 77 | 66 69 78 20 3c 3e 20 33 |..if how|fix <> 3|
|00005410| 20 74 68 65 6e 0d 09 09 | 09 09 09 62 65 67 69 6e | then...|...begin|
|00005420| 0d 09 09 09 09 09 09 61 | 20 3a 3d 20 67 47 52 41 |.......a| := gGRA|
|00005430| 46 2e 72 6f 6f 74 3b 0d | 09 09 09 09 09 09 77 68 |F.root;.|......wh|
|00005440| 69 6c 65 20 61 20 3c 3e | 20 30 20 64 6f 0d 09 09 |ile a <>| 0 do...|
|00005450| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00005460| 09 09 09 43 6f 70 79 42 | 69 74 73 28 47 72 61 66 |...CopyB|its(Graf|
|00005470| 50 74 72 28 67 47 52 41 | 46 2e 62 63 6b 67 72 6e |Ptr(gGRA|F.bckgrn|
|00005480| 64 2e 74 68 65 70 6f 72 | 74 29 5e 2e 70 6f 72 74 |d.thepor|t)^.port|
|00005490| 42 69 74 73 2c 20 47 72 | 61 66 50 74 72 28 67 47 |Bits, Gr|afPtr(gG|
|000054a0| 52 41 46 2e 64 69 72 74 | 79 77 6f 72 6b 2e 74 68 |RAF.dirt|ywork.th|
|000054b0| 65 70 6f 72 74 29 5e 2e | 70 6f 72 74 42 69 74 73 |eport)^.|portBits|
|000054c0| 2c 20 74 68 65 73 70 72 | 69 74 65 5b 61 5d 2e 6f |, thespr|ite[a].o|
|000054d0| 6c 64 70 6c 61 63 65 2c | 20 74 68 65 73 70 72 69 |ldplace,| thespri|
|000054e0| 74 65 5b 61 5d 2e 6f 6c | 64 70 6c 61 63 65 2c 20 |te[a].ol|dplace, |
|000054f0| 73 72 63 43 6f 70 79 2c | 20 6e 69 6c 29 3b 0d 09 |srcCopy,| nil);..|
|00005500| 09 09 09 09 09 09 09 61 | 20 3a 3d 20 74 68 65 73 |.......a| := thes|
|00005510| 70 72 69 74 65 5b 61 5d | 2e 6e 65 78 74 3b 0d 09 |prite[a]|.next;..|
|00005520| 09 09 09 09 09 09 65 6e | 64 3b 0d 09 09 09 09 09 |......en|d;......|
|00005530| 65 6e 64 3b 0d 09 09 09 | 09 69 66 20 68 6f 77 66 |end;....|.if howf|
|00005540| 69 78 20 3d 20 33 20 74 | 68 65 6e 0d 09 09 09 09 |ix = 3 t|hen.....|
|00005550| 09 62 65 67 69 6e 0d 09 | 09 09 09 09 09 43 6f 70 |.begin..|.....Cop|
|00005560| 79 42 69 74 73 28 47 72 | 61 66 50 74 72 28 67 47 |yBits(Gr|afPtr(gG|
|00005570| 52 41 46 2e 62 63 6b 67 | 72 6e 64 2e 74 68 65 70 |RAF.bckg|rnd.thep|
|00005580| 6f 72 74 29 5e 2e 70 6f | 72 74 42 69 74 73 2c 20 |ort)^.po|rtBits, |
|00005590| 47 72 61 66 50 74 72 28 | 67 47 52 41 46 2e 64 69 |GrafPtr(|gGRAF.di|
|000055a0| 72 74 79 77 6f 72 6b 2e | 74 68 65 70 6f 72 74 29 |rtywork.|theport)|
|000055b0| 5e 2e 70 6f 72 74 42 69 | 74 73 2c 20 67 47 52 41 |^.portBi|ts, gGRA|
|000055c0| 46 2e 73 63 72 6e 72 65 | 63 74 2c 20 67 47 52 41 |F.scrnre|ct, gGRA|
|000055d0| 46 2e 73 63 72 6e 72 65 | 63 74 2c 20 73 72 63 43 |F.scrnre|ct, srcC|
|000055e0| 6f 70 79 2c 20 6e 69 6c | 29 3b 0d 09 09 09 09 09 |opy, nil|);......|
|000055f0| 65 6e 64 3b 0d 09 09 09 | 09 47 65 74 47 57 28 43 |end;....|.GetGW(C|
|00005600| 47 72 61 66 50 74 72 28 | 67 47 52 41 46 2e 43 75 |GrafPtr(|gGRAF.Cu|
|00005610| 72 50 6f 72 74 29 2c 20 | 67 47 52 41 46 2e 43 75 |rPort), |gGRAF.Cu|
|00005620| 72 44 65 76 29 3b 0d 09 | 09 09 09 53 65 74 47 57 |rDev);..|...SetGW|
|00005630| 28 67 47 52 41 46 2e 64 | 69 72 74 79 77 6f 72 6b |(gGRAF.d|irtywork|
|00005640| 2e 74 68 65 70 6f 72 74 | 2c 20 67 47 52 41 46 2e |.theport|, gGRAF.|
|00005650| 64 69 72 74 79 77 6f 72 | 6b 68 29 3b 0d 09 09 09 |dirtywor|kh);....|
|00005660| 09 69 66 20 4c 63 6b 50 | 69 78 28 67 47 52 41 46 |.if LckP|ix(gGRAF|
|00005670| 2e 64 69 72 74 79 77 6f | 72 6b 2e 74 68 65 70 6f |.dirtywo|rk.thepo|
|00005680| 72 74 5e 2e 70 6f 72 74 | 50 69 78 4d 61 70 29 20 |rt^.port|PixMap) |
|00005690| 74 68 65 6e 0d 09 09 09 | 09 09 62 65 67 69 6e 0d |then....|..begin.|
|000056a0| 09 09 09 09 09 09 61 20 | 3a 3d 20 67 47 52 41 46 |......a |:= gGRAF|
|000056b0| 2e 72 6f 6f 74 3b 0d 09 | 09 09 09 09 09 77 68 69 |.root;..|.....whi|
|000056c0| 6c 65 20 61 20 3c 3e 20 | 30 20 64 6f 0d 09 09 09 |le a <> |0 do....|
|000056d0| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|000056e0| 09 09 69 66 20 74 68 65 | 73 70 72 69 74 65 5b 61 |..if the|sprite[a|
|000056f0| 5d 2e 74 68 65 66 61 63 | 65 2e 74 68 65 74 79 70 |].thefac|e.thetyp|
|00005700| 65 20 3d 20 31 20 74 68 | 65 6e 0d 09 09 09 09 09 |e = 1 th|en......|
|00005710| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|00005720| 09 09 09 09 69 66 20 28 | 74 68 65 73 70 72 69 74 |....if (|thesprit|
|00005730| 65 5b 61 5d 2e 69 73 74 | 68 65 72 65 20 3d 20 31 |e[a].ist|here = 1|
|00005740| 29 20 61 6e 64 20 28 74 | 68 65 73 70 72 69 74 65 |) and (t|hesprite|
|00005750| 5b 61 5d 2e 77 68 61 74 | 73 63 72 6e 69 73 72 65 |[a].what|scrnisre|
|00005760| 63 74 20 3d 20 67 47 52 | 41 46 2e 77 68 61 74 73 |ct = gGR|AF.whats|
|00005770| 63 72 6e 29 20 61 6e 64 | 20 28 74 68 65 73 70 72 |crn) and| (thespr|
|00005780| 69 74 65 5b 61 5d 2e 6b | 69 6c 6c 73 70 72 69 74 |ite[a].k|illsprit|
|00005790| 65 66 6c 61 67 20 3d 20 | 66 61 6c 73 65 29 20 61 |eflag = |false) a|
|000057a0| 6e 64 20 28 74 68 65 73 | 70 72 69 74 65 5b 61 5d |nd (thes|prite[a]|
|000057b0| 2e 74 68 65 66 61 63 65 | 2e 72 65 73 6e 75 6d 20 |.theface|.resnum |
|000057c0| 3c 3e 20 30 29 20 74 68 | 65 6e 0d 09 09 09 09 09 |<> 0) th|en......|
|000057d0| 09 09 09 09 09 09 70 6c | 6f 74 63 69 63 6f 6e 28 |......pl|otcicon(|
|000057e0| 74 68 65 73 70 72 69 74 | 65 5b 61 5d 2e 6e 65 77 |thesprit|e[a].new|
|000057f0| 70 6c 61 63 65 2c 20 74 | 68 65 73 70 72 69 74 65 |place, t|hesprite|
|00005800| 5b 61 5d 2e 74 68 65 66 | 61 63 65 2e 74 68 65 63 |[a].thef|ace.thec|
|00005810| 69 63 6f 6e 29 3b 0d 09 | 09 09 09 09 09 09 09 09 |icon);..|........|
|00005820| 65 6e 64 3b 0d 09 09 09 | 09 09 09 09 09 69 66 20 |end;....|.....if |
|00005830| 28 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 74 68 |(thespri|te[a].th|
|00005840| 65 66 61 63 65 2e 74 68 | 65 74 79 70 65 20 3d 20 |eface.th|etype = |
|00005850| 32 29 20 61 6e 64 20 28 | 74 68 65 73 70 72 69 74 |2) and (|thesprit|
|00005860| 65 5b 61 5d 2e 69 73 74 | 68 65 72 65 20 3d 20 31 |e[a].ist|here = 1|
|00005870| 29 20 61 6e 64 20 28 74 | 68 65 73 70 72 69 74 65 |) and (t|hesprite|
|00005880| 5b 61 5d 2e 77 68 61 74 | 73 63 72 6e 69 73 72 65 |[a].what|scrnisre|
|00005890| 63 74 20 3d 20 67 47 52 | 41 46 2e 77 68 61 74 73 |ct = gGR|AF.whats|
|000058a0| 63 72 6e 29 20 61 6e 64 | 20 28 74 68 65 73 70 72 |crn) and| (thespr|
|000058b0| 69 74 65 5b 61 5d 2e 6b | 69 6c 6c 73 70 72 69 74 |ite[a].k|illsprit|
|000058c0| 65 66 6c 61 67 20 3d 20 | 66 61 6c 73 65 29 20 61 |eflag = |false) a|
|000058d0| 6e 64 20 28 74 68 65 73 | 70 72 69 74 65 5b 61 5d |nd (thes|prite[a]|
|000058e0| 2e 74 68 65 66 61 63 65 | 2e 70 69 63 74 72 65 73 |.theface|.pictres|
|000058f0| 6e 75 6d 20 3c 3e 20 30 | 29 20 74 68 65 6e 0d 09 |num <> 0|) then..|
|00005900| 09 09 09 09 09 09 09 09 | 62 65 67 69 6e 0d 09 09 |........|begin...|
|00005910| 09 09 09 09 09 09 09 09 | 43 6f 70 79 4d 61 73 6b |........|CopyMask|
|00005920| 28 47 72 61 66 50 74 72 | 28 67 47 52 41 46 2e 63 |(GrafPtr|(gGRAF.c|
|00005930| 6f 6c 6f 72 70 69 63 74 | 2e 74 68 65 70 6f 72 74 |olorpict|.theport|
|00005940| 29 5e 2e 70 6f 72 74 42 | 69 74 73 2c 20 47 72 61 |)^.portB|its, Gra|
|00005950| 66 50 74 72 28 67 47 52 | 41 46 2e 6d 61 73 6b 70 |fPtr(gGR|AF.maskp|
|00005960| 69 63 74 2e 74 68 65 70 | 6f 72 74 29 5e 2e 70 6f |ict.thep|ort)^.po|
|00005970| 72 74 42 69 74 73 2c 20 | 47 72 61 66 50 74 72 28 |rtBits, |GrafPtr(|
|00005980| 67 47 52 41 46 2e 64 69 | 72 74 79 77 6f 72 6b 2e |gGRAF.di|rtywork.|
|00005990| 74 68 65 70 6f 72 74 29 | 5e 2e 70 6f 72 74 42 69 |theport)|^.portBi|
|000059a0| 74 73 2c 20 74 68 65 73 | 70 72 69 74 65 5b 61 5d |ts, thes|prite[a]|
|000059b0| 2e 74 68 65 66 61 63 65 | 2e 73 6f 75 72 63 65 72 |.theface|.sourcer|
|000059c0| 65 63 74 2c 20 74 68 65 | 73 70 72 69 74 65 5b 61 |ect, the|sprite[a|
|000059d0| 5d 2e 74 68 65 66 61 63 | 65 2e 73 6f 75 72 63 65 |].thefac|e.source|
|000059e0| 72 65 63 74 2c 20 74 68 | 65 73 70 72 69 74 65 5b |rect, th|esprite[|
|000059f0| 61 5d 2e 6e 65 77 70 6c | 61 63 65 29 3b 0d 09 09 |a].newpl|ace);...|
|00005a00| 09 09 09 09 09 09 09 65 | 6e 64 3b 0d 09 09 09 09 |.......e|nd;.....|
|00005a10| 09 09 09 09 61 20 3a 3d | 20 74 68 65 73 70 72 69 |....a :=| thespri|
|00005a20| 74 65 5b 61 5d 2e 6e 65 | 78 74 3b 0d 09 09 09 09 |te[a].ne|xt;.....|
|00005a30| 09 09 09 65 6e 64 3b 0d | 09 09 09 09 09 65 6e 64 |...end;.|.....end|
|00005a40| 3b 0d 09 09 09 09 55 6e | 6c 63 6b 50 69 78 28 67 |;.....Un|lckPix(g|
|00005a50| 47 52 41 46 2e 64 69 72 | 74 79 77 6f 72 6b 2e 74 |GRAF.dir|tywork.t|
|00005a60| 68 65 70 6f 72 74 5e 2e | 70 6f 72 74 50 69 78 4d |heport^.|portPixM|
|00005a70| 61 70 29 3b 0d 09 09 09 | 09 53 65 74 47 57 28 43 |ap);....|.SetGW(C|
|00005a80| 47 72 61 66 50 74 72 28 | 67 47 52 41 46 2e 43 75 |GrafPtr(|gGRAF.Cu|
|00005a90| 72 50 6f 72 74 29 2c 20 | 67 47 52 41 46 2e 43 75 |rPort), |gGRAF.Cu|
|00005aa0| 72 44 65 76 29 3b 0d 09 | 09 09 09 69 66 20 28 68 |rDev);..|...if (h|
|00005ab0| 6f 77 66 69 78 20 3d 20 | 31 29 20 6f 72 20 28 68 |owfix = |1) or (h|
|00005ac0| 6f 77 66 69 78 20 3d 20 | 33 29 20 74 68 65 6e 0d |owfix = |3) then.|
|00005ad0| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00005ae0| 09 75 70 64 61 74 65 77 | 68 6f 6c 65 73 63 72 6e |.updatew|holescrn|
|00005af0| 3b 0d 09 09 09 09 09 65 | 6e 64 3b 0d 09 09 09 09 |;......e|nd;.....|
|00005b00| 69 66 20 28 68 6f 77 66 | 69 78 20 3d 20 32 29 20 |if (howf|ix = 2) |
|00005b10| 74 68 65 6e 0d 09 09 09 | 09 09 62 65 67 69 6e 0d |then....|..begin.|
|00005b20| 09 09 09 09 09 09 61 20 | 3a 3d 20 67 47 52 41 46 |......a |:= gGRAF|
|00005b30| 2e 72 6f 6f 74 3b 0d 09 | 09 09 09 09 09 77 68 69 |.root;..|.....whi|
|00005b40| 6c 65 20 61 20 3c 3e 20 | 30 20 64 6f 0d 09 09 09 |le a <> |0 do....|
|00005b50| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|00005b60| 09 09 69 66 20 74 68 65 | 73 70 72 69 74 65 5b 61 |..if the|sprite[a|
|00005b70| 5d 2e 77 68 61 74 73 63 | 72 6e 69 73 72 65 63 74 |].whatsc|rnisrect|
|00005b80| 20 3d 20 67 47 52 41 46 | 2e 77 68 61 74 73 63 72 | = gGRAF|.whatscr|
|00005b90| 6e 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 09 09 |n then..|........|
|00005ba0| 43 6f 70 79 42 69 74 73 | 28 47 72 61 66 50 74 72 |CopyBits|(GrafPtr|
|00005bb0| 28 67 47 52 41 46 2e 64 | 69 72 74 79 77 6f 72 6b |(gGRAF.d|irtywork|
|00005bc0| 2e 74 68 65 70 6f 72 74 | 29 5e 2e 70 6f 72 74 42 |.theport|)^.portB|
|00005bd0| 69 74 73 2c 20 47 72 61 | 66 50 74 72 28 67 47 52 |its, Gra|fPtr(gGR|
|00005be0| 41 46 2e 43 75 72 50 6f | 72 74 29 5e 2e 70 6f 72 |AF.CurPo|rt)^.por|
|00005bf0| 74 42 69 74 73 2c 20 74 | 68 65 73 70 72 69 74 65 |tBits, t|hesprite|
|00005c00| 5b 61 5d 2e 6f 6c 64 70 | 6c 61 63 65 2c 20 74 68 |[a].oldp|lace, th|
|00005c10| 65 73 70 72 69 74 65 5b | 61 5d 2e 6f 6c 64 70 6c |esprite[|a].oldpl|
|00005c20| 61 63 65 2c 20 73 72 63 | 43 6f 70 79 2c 20 6e 69 |ace, src|Copy, ni|
|00005c30| 6c 29 3b 0d 09 09 09 09 | 09 09 09 09 69 66 20 74 |l);.....|....if t|
|00005c40| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 77 68 61 74 |hesprite|[a].what|
|00005c50| 73 63 72 6e 69 73 72 65 | 63 74 20 3d 20 67 47 52 |scrnisre|ct = gGR|
|00005c60| 41 46 2e 77 68 61 74 73 | 63 72 6e 20 74 68 65 6e |AF.whats|crn then|
|00005c70| 0d 09 09 09 09 09 09 09 | 09 09 43 6f 70 79 42 69 |........|..CopyBi|
|00005c80| 74 73 28 47 72 61 66 50 | 74 72 28 67 47 52 41 46 |ts(GrafP|tr(gGRAF|
|00005c90| 2e 64 69 72 74 79 77 6f | 72 6b 2e 74 68 65 70 6f |.dirtywo|rk.thepo|
|00005ca0| 72 74 29 5e 2e 70 6f 72 | 74 42 69 74 73 2c 20 47 |rt)^.por|tBits, G|
|00005cb0| 72 61 66 50 74 72 28 67 | 47 52 41 46 2e 43 75 72 |rafPtr(g|GRAF.Cur|
|00005cc0| 50 6f 72 74 29 5e 2e 70 | 6f 72 74 42 69 74 73 2c |Port)^.p|ortBits,|
|00005cd0| 20 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 6e 65 | thespri|te[a].ne|
|00005ce0| 77 70 6c 61 63 65 2c 20 | 74 68 65 73 70 72 69 74 |wplace, |thesprit|
|00005cf0| 65 5b 61 5d 2e 6e 65 77 | 70 6c 61 63 65 2c 20 73 |e[a].new|place, s|
|00005d00| 72 63 43 6f 70 79 2c 20 | 6e 69 6c 29 3b 0d 09 09 |rcCopy, |nil);...|
|00005d10| 09 09 09 09 09 09 61 20 | 3a 3d 20 74 68 65 73 70 |......a |:= thesp|
|00005d20| 72 69 74 65 5b 61 5d 2e | 6e 65 78 74 3b 0d 09 09 |rite[a].|next;...|
|00005d30| 09 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 09 09 65 |.....end|;......e|
|00005d40| 6e 64 3b 0d 09 09 09 09 | 61 20 3a 3d 20 67 47 52 |nd;.....|a := gGR|
|00005d50| 41 46 2e 72 6f 6f 74 3b | 0d 09 09 09 09 77 68 69 |AF.root;|.....whi|
|00005d60| 6c 65 20 61 20 3c 3e 20 | 30 20 64 6f 0d 09 09 09 |le a <> |0 do....|
|00005d70| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 09 73 65 |..begin.|......se|
|00005d80| 74 72 65 63 74 28 74 68 | 65 73 70 72 69 74 65 5b |trect(th|esprite[|
|00005d90| 61 5d 2e 6f 6c 64 70 6c | 61 63 65 2c 20 74 68 65 |a].oldpl|ace, the|
|00005da0| 73 70 72 69 74 65 5b 61 | 5d 2e 6e 65 77 70 6c 61 |sprite[a|].newpla|
|00005db0| 63 65 2e 6c 65 66 74 2c | 20 74 68 65 73 70 72 69 |ce.left,| thespri|
|00005dc0| 74 65 5b 61 5d 2e 6e 65 | 77 70 6c 61 63 65 2e 74 |te[a].ne|wplace.t|
|00005dd0| 6f 70 2c 20 74 68 65 73 | 70 72 69 74 65 5b 61 5d |op, thes|prite[a]|
|00005de0| 2e 6e 65 77 70 6c 61 63 | 65 2e 72 69 67 68 74 2c |.newplac|e.right,|
|00005df0| 20 74 68 65 73 70 72 69 | 74 65 5b 61 5d 2e 6e 65 | thespri|te[a].ne|
|00005e00| 77 70 6c 61 63 65 2e 62 | 6f 74 74 6f 6d 29 3b 0d |wplace.b|ottom);.|
|00005e10| 09 09 09 09 09 09 61 20 | 3a 3d 20 74 68 65 73 70 |......a |:= thesp|
|00005e20| 72 69 74 65 5b 61 5d 2e | 6e 65 78 74 3b 0d 09 09 |rite[a].|next;...|
|00005e30| 09 09 09 65 6e 64 3b 0d | 09 09 09 09 61 20 3a 3d |...end;.|....a :=|
|00005e40| 20 67 47 52 41 46 2e 72 | 6f 6f 74 3b 0d 09 09 09 | gGRAF.r|oot;....|
|00005e50| 09 77 68 69 6c 65 20 61 | 20 3c 3e 20 30 20 64 6f |.while a| <> 0 do|
|00005e60| 0d 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00005e70| 09 09 69 66 20 74 68 65 | 73 70 72 69 74 65 5b 61 |..if the|sprite[a|
|00005e80| 5d 2e 6b 69 6c 6c 73 70 | 72 69 74 65 66 6c 61 67 |].killsp|riteflag|
|00005e90| 20 3d 20 74 72 75 65 20 | 74 68 65 6e 0d 09 09 09 | = true |then....|
|00005ea0| 09 09 09 09 6b 69 6c 6c | 61 73 70 72 69 74 65 28 |....kill|asprite(|
|00005eb0| 61 29 3b 0d 09 09 09 09 | 09 09 61 20 3a 3d 20 74 |a);.....|..a := t|
|00005ec0| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 6e 65 78 74 |hesprite|[a].next|
|00005ed0| 3b 0d 09 09 09 09 09 65 | 6e 64 3b 0d 09 09 09 09 |;......e|nd;.....|
|00005ee0| 61 20 3a 3d 20 67 47 52 | 41 46 2e 72 6f 6f 74 3b |a := gGR|AF.root;|
|00005ef0| 0d 09 09 09 09 77 68 69 | 6c 65 20 61 20 3c 3e 20 |.....whi|le a <> |
|00005f00| 30 20 64 6f 0d 09 09 09 | 09 09 62 65 67 69 6e 0d |0 do....|..begin.|
|00005f10| 09 09 09 09 09 09 74 68 | 65 73 70 72 69 74 65 5b |......th|esprite[|
|00005f20| 61 5d 2e 69 73 64 6f 6e | 65 20 3a 3d 20 66 61 6c |a].isdon|e := fal|
|00005f30| 73 65 3b 0d 09 09 09 09 | 09 09 61 20 3a 3d 20 74 |se;.....|..a := t|
|00005f40| 68 65 73 70 72 69 74 65 | 5b 61 5d 2e 6e 65 78 74 |hesprite|[a].next|
|00005f50| 3b 0d 09 09 09 09 09 65 | 6e 64 3b 0d 09 09 09 65 |;......e|nd;....e|
|00005f60| 6e 64 3b 0d 09 65 6e 64 | 3b 0d 0d 09 66 75 6e 63 |nd;..end|;...func|
|00005f70| 74 69 6f 6e 20 4e 65 77 | 53 70 72 69 74 65 20 28 |tion New|Sprite (|
|00005f80| 74 68 65 6b 69 6e 64 2c | 20 68 70 6f 73 2c 20 76 |thekind,| hpos, v|
|00005f90| 70 6f 73 2c 20 74 68 65 | 6c 61 79 65 72 3a 20 69 |pos, the|layer: i|
|00005fa0| 6e 74 65 67 65 72 3b 20 | 74 68 61 74 66 61 63 65 |nteger; |thatface|
|00005fb0| 3a 20 66 61 63 65 3b 20 | 74 68 65 74 61 73 6b 2c |: face; |thetask,|
|00005fc0| 20 74 68 65 68 69 74 54 | 61 73 6b 2c 20 73 65 74 | thehitT|ask, set|
|00005fd0| 75 70 74 61 73 6b 3a 20 | 50 72 6f 63 50 74 72 29 |uptask: |ProcPtr)|
|00005fe0| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 76 61 72 |: intege|r;...var|
|00005ff0| 0d 09 09 09 74 65 6d 70 | 3a 20 53 70 72 69 74 65 |....temp|: Sprite|
|00006000| 3b 0d 09 09 09 74 65 6d | 70 32 3a 20 66 61 63 65 |;....tem|p2: face|
|00006010| 3b 0d 09 09 09 61 2c 20 | 62 2c 20 63 3a 20 69 6e |;....a, |b, c: in|
|00006020| 74 65 67 65 72 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |teger;..|begin...|
|00006030| 63 20 3a 3d 20 30 3b 0d | 09 09 67 47 52 41 46 2e |c := 0;.|..gGRAF.|
|00006040| 61 72 65 6e 6f 6e 65 20 | 3a 3d 20 66 61 6c 73 65 |arenone |:= false|
|00006050| 3b 0d 09 09 69 66 20 67 | 47 52 41 46 2e 72 6f 6f |;...if g|GRAF.roo|
|00006060| 74 20 3c 3e 20 30 20 74 | 68 65 6e 0d 09 09 09 62 |t <> 0 t|hen....b|
|00006070| 65 67 69 6e 0d 09 09 09 | 09 62 20 3a 3d 20 67 47 |egin....|.b := gG|
|00006080| 52 41 46 2e 72 6f 6f 74 | 3b 0d 09 09 09 09 61 20 |RAF.root|;.....a |
|00006090| 3a 3d 20 74 68 65 73 70 | 72 69 74 65 5b 62 5d 2e |:= thesp|rite[b].|
|000060a0| 6e 65 78 74 3b 0d 09 09 | 09 09 77 68 69 6c 65 20 |next;...|..while |
|000060b0| 61 20 3c 3e 20 30 20 64 | 6f 0d 09 09 09 09 09 62 |a <> 0 d|o......b|
|000060c0| 65 67 69 6e 0d 09 09 09 | 09 09 09 62 20 3a 3d 20 |egin....|...b := |
|000060d0| 61 3b 0d 09 09 09 09 09 | 09 61 20 3a 3d 20 74 68 |a;......|.a := th|
|000060e0| 65 73 70 72 69 74 65 5b | 62 5d 2e 6e 65 78 74 3b |esprite[|b].next;|
|000060f0| 0d 09 09 09 09 09 65 6e | 64 3b 0d 09 09 09 09 61 |......en|d;.....a|
|00006100| 20 3a 3d 20 31 3b 0d 09 | 09 09 09 77 68 69 6c 65 | := 1;..|...while|
|00006110| 20 63 20 3d 20 30 20 64 | 6f 0d 09 09 09 09 09 62 | c = 0 d|o......b|
|00006120| 65 67 69 6e 0d 09 09 09 | 09 09 09 69 66 20 74 68 |egin....|...if th|
|00006130| 65 73 70 72 69 74 65 5b | 61 5d 2e 69 73 74 68 65 |esprite[|a].isthe|
|00006140| 72 65 20 3d 20 30 20 74 | 68 65 6e 0d 09 09 09 09 |re = 0 t|hen.....|
|00006150| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 09 |...begin|........|
|00006160| 09 63 20 3a 3d 20 31 3b | 0d 09 09 09 09 09 09 09 |.c := 1;|........|
|00006170| 09 69 66 20 73 65 74 75 | 70 74 61 73 6b 20 3c 3e |.if setu|ptask <>|
|00006180| 20 6e 69 6c 20 74 68 65 | 6e 0d 09 09 09 09 09 09 | nil the|n.......|
|00006190| 09 09 09 63 61 6c 6c 54 | 61 73 6b 28 74 68 65 73 |...callT|ask(thes|
|000061a0| 70 72 69 74 65 5b 61 5d | 2c 20 73 65 74 75 70 74 |prite[a]|, setupt|
|000061b0| 61 73 6b 29 3b 0d 09 09 | 09 09 09 09 09 09 74 68 |ask);...|......th|
|000061c0| 65 73 70 72 69 74 65 5b | 62 5d 2e 6e 65 78 74 20 |esprite[|b].next |
|000061d0| 3a 3d 20 61 3b 0d 09 09 | 09 09 09 09 09 09 74 68 |:= a;...|......th|
|000061e0| 65 73 70 72 69 74 65 5b | 61 5d 2e 6b 69 6e 64 20 |esprite[|a].kind |
|000061f0| 3a 3d 20 74 68 65 6b 69 | 6e 64 3b 0d 09 09 09 09 |:= theki|nd;.....|
|00006200| 09 09 09 09 74 68 65 73 | 70 72 69 74 65 5b 61 5d |....thes|prite[a]|
|00006210| 2e 70 6f 73 69 74 69 6f | 6e 2e 68 20 3a 3d 20 68 |.positio|n.h := h|
|00006220| 70 6f 73 3b 0d 09 09 09 | 09 09 09 09 09 74 68 65 |pos;....|.....the|
|00006230| 73 70 72 69 74 65 5b 61 | 5d 2e 70 6f 73 69 74 69 |sprite[a|].positi|
|00006240| 6f 6e 2e 76 20 3a 3d 20 | 76 70 6f 73 3b 0d 09 09 |on.v := |vpos;...|
|00006250| 09 09 09 09 09 09 74 65 | 6d 70 32 20 3a 3d 20 70 |......te|mp2 := p|
|00006260| 75 74 69 6e 66 61 63 65 | 28 74 68 61 74 66 61 63 |utinface|(thatfac|
|00006270| 65 29 3b 0d 09 09 09 09 | 09 09 09 09 74 68 65 73 |e);.....|....thes|
|00006280| 70 72 69 74 65 5b 61 5d | 2e 74 68 65 66 61 63 65 |prite[a]|.theface|
|00006290| 20 3a 3d 20 74 65 6d 70 | 32 3b 0d 09 09 09 09 09 | := temp|2;......|
|000062a0| 09 09 09 74 68 65 73 70 | 72 69 74 65 5b 61 5d 2e |...thesp|rite[a].|
|000062b0| 74 61 73 6b 20 3a 3d 20 | 74 68 65 74 61 73 6b 3b |task := |thetask;|
|000062c0| 0d 09 09 09 09 09 09 09 | 09 74 68 65 73 70 72 69 |........|.thespri|
|000062d0| 74 65 5b 61 5d 2e 68 69 | 74 54 61 73 6b 20 3a 3d |te[a].hi|tTask :=|
|000062e0| 20 74 68 65 68 69 74 54 | 61 73 6b 3b 0d 09 09 09 | thehitT|ask;....|
|000062f0| 09 09 09 09 09 74 68 65 | 73 70 72 69 74 65 5b 61 |.....the|sprite[a|
|00006300| 5d 2e 69 73 74 68 65 72 | 65 20 3a 3d 20 31 3b 0d |].isther|e := 1;.|
|00006310| 09 09 09 09 09 09 09 09 | 74 68 65 73 70 72 69 74 |........|thesprit|
|00006320| 65 5b 61 5d 2e 77 68 61 | 74 73 63 72 6e 69 73 72 |e[a].wha|tscrnisr|
|00006330| 65 63 74 20 3a 3d 20 31 | 3b 0d 09 09 09 09 09 09 |ect := 1|;.......|
|00006340| 09 09 74 68 65 73 70 72 | 69 74 65 5b 61 5d 2e 6c |..thespr|ite[a].l|
|00006350| 61 79 65 72 20 3a 3d 20 | 74 68 65 6c 61 79 65 72 |ayer := |thelayer|
|00006360| 3b 0d 09 09 09 09 09 09 | 09 09 74 68 65 73 70 72 |;.......|..thespr|
|00006370| 69 74 65 5b 61 5d 2e 74 | 68 69 73 69 73 20 3a 3d |ite[a].t|hisis :=|
|00006380| 20 61 3b 0d 09 09 09 09 | 09 09 09 09 73 65 74 72 | a;.....|....setr|
|00006390| 65 63 74 28 74 68 65 73 | 70 72 69 74 65 5b 61 5d |ect(thes|prite[a]|
|000063a0| 2e 6e 65 77 70 6c 61 63 | 65 2c 20 74 68 65 73 70 |.newplac|e, thesp|
|000063b0| 72 69 74 65 5b 61 5d 2e | 70 6f 73 69 74 69 6f 6e |rite[a].|position|
|000063c0| 2e 68 2c 20 74 68 65 73 | 70 72 69 74 65 5b 61 5d |.h, thes|prite[a]|
|000063d0| 2e 70 6f 73 69 74 69 6f | 6e 2e 76 2c 20 74 68 65 |.positio|n.v, the|
|000063e0| 73 70 72 69 74 65 5b 61 | 5d 2e 70 6f 73 69 74 69 |sprite[a|].positi|
|000063f0| 6f 6e 2e 68 20 2b 20 74 | 68 65 73 70 72 69 74 65 |on.h + t|hesprite|
+--------+-------------------------+-------------------------+--------+--------+